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BASIC 


N muchas ocasiones 
los datos que necesi- 
ta manejar un progra- 
ma son fijos, por lo 
que puede resultar 
muy útil que dichos 
datos puedan formar 
parte del programa 
en cuestión. Además, si el número de da- 
tos es alto, las instrucciones LET e INPUT re- 
sultan poco efectivas. 

El lenguaje BASIC dispone de dos ins- 
trucciones que solucionan estos proble- 
mas: READ y DATA. 

Ambas instrucciones trabajan siempre 
juntas, son complementarias. 

Las instrucciones DATA son simples al- 
macenes de datos, numéricos o alfanu- 
méricos, separados entre sí por comas. 
Dichos datos deben ser siempre constan- 
tes, por tanto, el formato general de 
DATA se puede expresar: 


DATA <lista de datos constantes > 
Veamos algunos ejemplos concretos: 


100 DATA 64,2,32,4,16,8 

200 DATA ALEJANDRO, ERNESTO,EST- 
HER, JAVIER 

300 DATA 10,NIEVES,-5,LAURA,28.8 


Podemos observar que los datos alfa- 
numéricos almacenados en líneas DATA 
no necesitan ir encerrados entre comi- 
llas. Esto sólo será necesario si queremos 
que una cadena contenga una coma, 
por ejemplo: 


100 DATA “SERRANO, 20”, PRINCESA, 18” 


Sin embargo, en el SPECTRUM siempre 
son necesarias las comillas. 

Las instrucciones DATA, también llama- 
das líneas DATA, tienen las siguientes ca- 
racterísticas. 

— No son instrucciones ejecutables. El 
programa pasa por ellas sin hacer nada. 


LOS DATOS EN LINEAS DE PROGRAMA 


— En un programa podemos situar tan- 
tas líneas DATA como deseemos. Ade- 
más, podemos ponerlas en cualquier 
parte del programa sin que esto afecte a 
la ejecución. Sin embargo, por una cues- 
tión de orden y claridad, conviene que 
las situemos todas juntas, al principio o al 
final del programa. 

— Las instrucciones DATA de un pro- 
grama forman un bloque único de datos, 
por lo que da lo mismo cómo repartamos 
los datos en las líneas DATA. Por ejemplo, 
la instrucción: 


10 DATA 1,3,6,10,15,21,28,36,45 


es equivalente al conjunto de líneas: 


10 DATA 1,3,6,10 
20 DATA 15,21 
30DATA 28,36,45 


La instrucción READ sirve para leer los 
datos almacenados en líneas DATA. Su 
formato general es el siguiente: 


READ <lista de variables > 


Cuando el ordenador encuentra una 
instrucción READ durante la ejecución de 
un programa busca una línea DATA de la 
cual leer datos, por eso es indiferente el 
lugar donde se encuentren las líneas 
DATA, ya que READ las buscará. 

Sin embargo, ¿qué dato leerá READ de 
todos los almacenados en las líneas 
DATA? La instrucción READ manda al or- 
denador que lea a partir del primer dato 
no leído todavía siguiendo una orden 
creciente de número de línea de las ins- 
trucciones DATA. 

Veamos un ejemplo. El programa 1 lee 
todos los nombres y edades almacena- 
dos en las líneas DATA, imprimiéndolos 
en pantalla. 


REM rrrrrrrrrrrsrorrosrrrs 
20 REM * NOMBRES “Y EDADES  * 
DO REM rrrrrrer.oo..o.r....rs 
40 CELS 

530 PRINT "NOMBRE" ,"EDAD" 


70 READ N+,E 
100 PRINT N$,E 
110 NEXT 1 

120 DATÁ SERGIO, 10,LIDIA,12 
130 DATA IVÁN, 7, SILVIA 

140 DATA ?,PABLO,S 


El bucle FOR-NEXT se repite cinco veces 
y en cada vuelta lee e imprime los datos: 
el primero alfanumérico, que se almace- 
na en NS, y el segundo numérico, alma- 
cenado en E. Por tanto, en la primera 
vuelta del bucle, la instrucción READ lee- 
rá los datos SERGIO y 10. En la vuelta si- 
guiente el primer dato no leído todavía 
es LIDIA, por tanto, leerá LIDIA y 12. 

Este proceso se repite cinco veces, por 
lo que al finalizar la ejecución se habrán 
leído los diez datos almacenados en las 
líneas DATA (cinco nombres y cinco eda- 
des) y aparecerán en pantalla tal y 
como muestra la figura 1. 


NOMBRE 


SERGIO 


Hay que hacer notar que el tipo de va- 
riables que aparecen en el READ ha de 
estar en consonancia con el tipo de da- 


tos a leer, es decir, si se va a leer un dato 
numérico, la variable deberá ser numéri- 
ca, mientras que si el dato es alfanumé- 
rico, la variable tendrá que ser altanumé- 
rica. Si no se cumplen estas condiciones 
obtendremos un mensaje de error. Pode- 
mos comprobarlo cambiando el orden 
de las variables en la línea 90 del progra- 
ma 1 de la siguiente forma: 


90 READ E, N$ 


Por otra parte, también aparecerá un 
mensaje de error si intentamos leer con 
la instrucción READ más datos de los con- 
tenidos en las líneas DATA. Sin embargo, 
no importa que se lean menos datos de 
los que hay. 

Veamos otro ejemplo. El programa 2 
nos permite.averiguar el mes correspon- 
diente a un número introducido por te- 
clado. 


REM FErrrreriir.r 
REM * MESES + 


REM XFX > 


CLs 
INPUT "DIME UN NUMERO ENTRE 


1 Y 12",N 
IF N<1 OR N>12 THEN GOTO 50 
CLs 
FOR I=1 TON 
READ ME 

NEXT 1 

PRINT "EL NUMERO “¿N¿" 
CORRESPONDE AL MES DE "¿M8 
DATA ENERO, FEBRERO, MARZO, 
ABRIL 

DATA MAYO, JUNIO, JULIO, 
AGOSTO 

DATA SEPTIEMERE, OCTUBRE, 
NOVIEMBRE, DICIEMBRE 


El bucle FOR-NEXT, que se repite N ve- 
ces, permite que la instrucción READ 
vaya leyendo uno a uno los nombres de 
los meses almacenados en líneas DATA. 

Al salir del bucle, en la variable M$ se 
hallará el último mes leído, que se en- 
contrará en la posición N de la lista de 
datos contenidos en las líneas DATA; por 
tanto, ese mes será el que corresponda 
al número N. 

En la figura 2 podemos ver un ejemplo 
de ejecución de este programa. 


. BASIC 


EL MUMERO 10 CORRESPONDE SL MES OE OCTUBRE 
ps 


ja Presentación en pantalla del programa 2. 


El programa 3 es otro ejemplo de utili- 
zación de READ y DATA. En este caso nos 
permite localizar el teléfono de la perso- 
na que deseemos en una pequeña 
agenda telefónica. 


€__I —_—o o E E AAAÁKÁ—Á 


10 REM Ferrer rrrrrerriirerrrikkxr* | 

20 REM * AGENDA TELEFOUNICA  * 

30 REM RAEE FALLECE 

30 (ELS 

SO INPUT "MOMBRE DE LA PERSONA CUYO 
TELEFONO QUIERES SABER" ¿NE 

$0 CLS 

70 FOR 1=1 TO 10 

30 READ P$,T 

50 IF P$=N$ THEN GOTO 120 

100 NEXT I 

110 PRINT N$;" NO FIGURA EN LA AGENDA" 

¡END 

120 PRINT "NOMBRE:",P+ 

130 PRINT ¿PRINT 

140 PRINT "TELEFONO: ",T 

150 DATA ALEJANDRO, 7710542,ANA, 40845049 

140 DATA BRUNO,15?93517,ELENA,5304574 

170 DATA ESTHER,1696514,IG6NACI0,7787342 

180 DATA JAVIER,7608039,LL!I1S, 483475 

190 DATA MERCEDES,553765134,NIEVES,12 549 


En cada vuelta del bucle FOR-NEXT la 
instrucción READ se encarga de leer un 
nombre y un teléfono de las líneas DATA. 
La condición de la línea 90 se encarga 
de comprobar si el nombre leído es igual 
que el nombre que hemos dicho, en 
cuyo caso aparecerá en pantalla junto 
con el teléfono correspondiente (líneas 
120-140). En caso de que el bucle dé to- 


das las vueltas sin que se verifique la con- 
dición, aparecerá en pantalla el mensa- 
je de la línea 110 advirtiéndonos que el 
nombre que hemos tecleado no figura en 
la agenda almacenada en las líneas 
DATA. 

En la figura 3 podemos ver el aspecto 
de la pantalla tras una posible ejecución 
de este programa. 


NOMBRE : ESTHER 


TELEFONO: 1495519 
Ok 


h Presentación en pantalla del programa 3. 


' Restore 


Hasta ahora hemos visto cómo los da- 
tos de las líneas DATA, leídos con READ, 
se «agotaban», es decir, no se podían 
volver a leer. Sin embargo, existe una ins- 
trucción BASIC que permite la «relectura» 
de los datos ya leídos: RESTORE. 

RESTORE permite que los datos ya leídos 
en las líneas DATA puedan ser leídos de 
nuevo desde el principio. 

Sin embargo, hay un formato de RESTO- 
RE que lo hace todavía más potente: 


RESTORE N.? de línea 


Este nuevo formato permite seleccio- 
nar la línea DATA a partir de la cual de- 
seamos realizar la lectura de datos. 

Veamos un ejemplo. El programa 4 im- 
prime en pantalla el presente de indica- 
tivo de un verbo regular cualquiera intro- 
ducido por teclado. 


O REM 
20 REM +* 
30 PREM 
ELS 


L=LENCUE>) 


DE=RIGHTE(UE, 2) 
D$="AR" 
D$="ER" 
D$= nn 1 R" 
FOR I=1 TO 4 
READ P$,T+ 
PRINT PS,Re+T+ 
NEXT 1 , 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA NOSOTROS, IMOS 


En el programa utilizamos la fragmenta- 
ción de cadenas para separar la raíz del 
verbo (línea 80) de su desinencia (linea 
90). 

Las condiciones de las líneas 100 a 120 
siven para averiguar de qué conjuga- 
ción es el verbo, ya que dependiendo de 
la conjugación las terminaciones para 
formar el presente serán distintas. 

Por tanto, si se verifica la primera con- 
dición (línea 100) se podrán leer datos a 
partir de la línea DATA 170 (terminacio- 
nes de la primera conjugación). Si se 
cumple la segunda condición (línea 110 
sólo se podrán leer datos a partir de la lí- 
nea DATA 190 (terminaciones de la se- 
gunda conjugacion). Si se cumple la ter- 
cera condición (línea 120), únicamente 
será posible leer datos a partir de la lí- 
nea DATA 210 (terminaciones de la terce- 
ra conjugación). 

El bucle FOR-NEXT (líneas 130-160) se 
repite seis veces (tantas como número 
de personas) y en cada vuelta lee de la 
línea DATA correspondiente la persona y 
su terminación (línea 140) para, seguida- 
mente, imprimir en pantalla la conjuga- 
ción correspondiente. 

En la figura 4 podemos ver la presenta- 
ción en pantalla tras una posible ejecu- 
ción. 

Hay que advertir que el COMMODORE 


ELA AREA 
PRESENTE DE INDICATIVO — * 
EAEFARE EEE 


RELEFTE (VB, L-2) 


THEN RESTORE 170 
THEN RESTORE 1%0 
THEN RESTORE 210 


YO,O,TU,AS,EL,A 
NOSOTROS AMOS, VOSOTROS, AIS,ELLOS,AN 
YO,O,TU,ES,EL,E 
NOSOTROS, EMOS, VOSOTROS, E1S,ELLOS,EN 
YO,O,TU,ES,EL,E 
VOSOTROS, 1S,ELLOS,EN 


5 


NOSOTROS 
VOSOTROS 
ELLOS 
Ok 


[A Presentación en pantalla del programa 4. 


no dispone de este formato para RESTO- 
RE, por lo que no es posible seleccionar 
la línea DATA que se desea leer. 

Finalmente, para que este último pro- 
grama funcione en el SPECTRUM habrá 
que realizar los siguientes cambios: 


80 LETR$ = VS (1 TO L-2) 
90 LETDS = VS (L-1 TO L) 
Además, tendremos que poner todos 


los datos de las líneas DATA entre comi- 
llas. 


Instrucciones 
a de 
entrada/salida 


NA de las principales 
funciones que tiene 
que realizar un micro- 
procesador es la de 
entrada/salida. Exis- 
ten diversas formas 
de implementar estas 
instrucciones. En el 
Z-80 existen instrucciones especializadas 
para esta función. Puesto que pueden 
existir diversos dispositivos que realicen 
funciones de entrada/salida (pantalla, 
teclado, casete, impresora, etc.), cada 
uno estaría identificado por un número 
de 8 bits, por lo que sólo podrán existir 
un máximo de 256 dispositivos, lo que es 
suficiente en la mayor parte de los casos. 


Operaciones de entrada 


Estas instrucciones indican al dispositi- 
vo que se quiere realizar una operación 
de entrada, recogiendo el dato que éste 
proporcione, y almacenándolo en el re- 
gistro que se indique. 

La instrucción más usada es: 


IN A, (n) 
donde n es el número que identifica al 
dispositivo desde el que se quiere reali- 


zar la lectura. El dato leído es almacena- 
do en el acumulador. 


MAQUINA 2-80 


SPECTRUM, AMSTRAD, MSX 


EJECUCION IN A,(3) 


También se puede seleccionar el dis- 
positivo indirectamente mediante el con- 
tenido del registro C: 


INR, (C) 


Cargándose el dato en R, donde R re- 
presenta cualquiera de los registros del 
Z-80. 

Lo más normal no es que tengamos que 
leer un solo dato, sino que un bloque de 
ellos; por ello, existen ciertas instruccio- 
nes capaces de leer un grupo de datos, 
al igual que los existentes para mover 
grupos de datos. 

La primera instrucción es: 


INI 


Esta lee un dato del periférico indicado 
por el contenido del registro C. Este dato 
se escribe en la posición de memoria in- 
dicada por el contenido del registro HL. 
Una vez realizada la operación, incre- 
menta el contenido de HL en una unidad 
y decrementa, también en una unidad, 
el contenido del registro B. 


De esta forma el contenido de HL es 
una dirección, o puntero, a la zona de 
memoria donde colocaremos los datos 
leídos y el registro B sirve como contador 
del número de datos a leer. 

Lo más frecuente es utilizar: 


que ejecuta la instrucción INI repetida- 
mente hasta que el contenido del regis- 
troBse hace cero. De esta forma con una 
sola instrucción podemos leer hasta un 
bloque de 256 datos (esto es porque el 
registro B es de 8 bits y, por tanto, sólo 
puede tomar valores entre O y 255). 

Existen otras dos instrucciones seme- 
jantes a éstas. La primera: 


es igual que INI, pero en vez de incre- 
mentar el contenido del registro HL lo de- 
crementa, siendo por lo demás idéntica. 

También existe la instrucción repetida 
con: 


Al igual, decrementa HL y B, repitiéndo- 
se hasta que B llega a cero. 

La diferencia entre las instrucciones 
que incrementan (INI, INIR) y las que de- 
crementan (IND, INDR) es que las prime- 
ras almacenan los datos a partir del con- 
tenido inicial del registro doble HL «hacia 
arriba», uno encima de otro; en los se- 
gundos los datos se colocan «hacia aba- 
jo», el dato en la posición de memoria 
anterior a la última. 


Grupo de entrada y salida 


Código Indicadores 
muemotécnico Operación simbólica sz 


M P/VYNC 


N.* de N.* de N.* de 


Códigos 
76 $43 210 Hex —byles ciclos M estados YT Comentarios 


IN A,(m) A*—(n) 


IN r.(C) 1 (C) 
Si r=110, sólo quedan afec- 
tados los indicadores 


(HL)=(C) 
L-B-1 


Se repite hasta que B=0 


(HL)=1(C) 
INDR 


Se repite hasta que B=0 
OUT (m),A (mA 


OUT (C),r (C)-r 
OUTI (C)— (HL) 


OTIR 


Se repite hasta que B=0 


Notas: (1) Za 1 si B-1=0; si no, Z 20. 


m Operaciones de salida 


Este es el caso complementario al an- 
terior. También en este caso se necesita 
un número para identificar el periférico, 
normalmente es el mismo número el que 
identifica a un mismo periférico tanto 
para entrada como para salida. En este 
caso también debemos indicar dónde 
está el dato que queremos escribir en el 
periférico. 


* 11 011 011 DB ” 
-p- 


+ 11 010 011 D3 


X 11 101 101 ED 


na ArA; 
Acumulador a 


* 11 101 101 ED 
000 


ol r 
11 101 101 ED 
10 100 010 A2 


11 101 101 ED 5 
10 110 010 B2 (Si Bx0) 
4 


(S: B=0) 


11 101 101 ED 4 Ca Ag As 
10 101 010 AA Ba Ar Ass 
1 101 101 ED Ca As:A, 
Ba ArAss 


5 
10 111 010 BA (Si Bx0) 
4 


(Si B=0) 
3 na ArA, 
-p- Acumulador a 

ArAss 


+ 11 101 101 ED 3 Ca Ac:Ar 


01 r 001 Ba Ar Ass 


11 101 101 ED 4 Ca Ay A- 
10 100 011 AJ Ba ArAss 


5 Ca Ay As 
10 110 011 B3 (Si B0) Ba ArA:s 
4 


(Si B=0) 


11 101 101 ED 4 Ca Ag: A: 
10 101 011 AB Ba ArAss 


11 101 101 ED 


5 2 Ca Ac-A; 
10 111 011 (Si B0) 


Ba AsAys 


(Si B=0) 


La instrucción principal es: 


donde N es el número que identifica al 
periférico en el que queremos escribir el 
dato contenido en el acumulador. 

En este tipo de instrucciones también 
se puede elegir el periférico indirecta- 
mente mediante el registro C. 


donde R es cualquiera de los registros. 


10 MAQUINA 2-80 


2-80 as 


OUT (3),A 
ESCRIBIR 


EJECUCION OUT (3),A 


Además, también están las instruccio- 
nes que se ejecutan repetidamente para 
escribir un bloque de datos. 

La instrucción: 


OUTI 
es idéntica a la INI, con la diferencia de 
que escribe los datos en vez de leerlos. 
Análogamente: 

OUTIR 
ejecuta una instrucción OUTI repetida- 
mente hasta que el contenido de B se 


anula. 
Las dos instrucciones que en vez de in- 


crementar decrementan el contenido HL 
con OUTD, la que se ejecuta una sola vez, 
y OUTDR se ejecuta repetidamente. 

Existe otra forma de realizar operacio- 
nes de entrada/salida conocida como 
E/S mapeada. 

En este caso la dirección del periférico 
coincide con una dirección de una pa- 
labra de la memoria principal. 

Al detectar el periférico que se escribe, 
o lee, de dicha posición coge, o deja el 
dato de la operación de E/S. 

Con este método se amplía en gran 
manera las posibilidades de realizar las 
operaciones de entrada/salida. 


NO DEJA 
P] PASAR 


14 


DIRECCION 


DIRECCION PERIFERICO 


E/S MAPEADA 


" 
PROGRAMAS 


EDUCATIVOS + DE UTILIDAD + DE GESTION + DE JUEGOS 


gi Programa: 
ácidos 
e hidrácidos 
TRIVIAL CHEMIST 
continuación apare- N.PREINTS P.ACERADOS 
ce el segundo pro- [»] % 


grama de química 
que hemos prepara- 
do para esta colec- 
ción. Si el primero es- 
taba pensado para (q(_ AAA 
preguntar al usuario (eCCCCeo  MUUYYY MARRAL 99999) 
sobre óxidos y anhíidridos, este segundo 
nos permitirá repasar nuestro nivel de 
ácidos e hidrácidos. 


| 
[A Fig. 2. El programa en plena ejecución. 


puesto y nosotros tendremos que pulsar 
un número entre 1 y 6 como maximo para 


COCCCCCCCe, — ARAARAAA responder. 
E 


oooo 


AR BA 
ARARARARAA 
CeCccOceo AR AR 


' 
vu YU 1 
0000000000 — LUVUUUUUWY 0 


TRIVIAL CHEMIST 


| RESULTADO DEL CONTROL 


A 
PREGUNTAS ACERTADAS 0.0... 7 
n...4 70 Y 


¿ NIVEL DE DIFICULTAD(1-5) ? 4 


[A Fig. 1. Presentación y recogida del nivel de 


dificultad. 


El programa nos preguntará el nivel de 
dificultad del programa y el número de 
preguntas que queremos que el ordena- 
dor nos haga. 


A continuación empezarán las pregun- [A 
tas. El ordenador nos preguntara un com- 


¿ QUIERES HACER OTRO EXAMEN (S/N) ? 


Fig. 3. 
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talla una breve estadística de nuestra ac- 


Una vez respondidas todas las pregun- 
tuacion. 


tas, el ordenador nos mostrará por pan- 


PROGRAMA: ACIDOS E HIDRACIDOS 


1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1050 
1090 
1100 
1110 
A e O, 
1130 
1140 
ESO 
11160 
1170 
1130 
1190 
1200 
1210 
IA 

230 
12410 
1250 
1250 
1 
1280 
1290 
1300 


BABAAAAL 


AÁ 
AA 
IITO 


AAALAAM ADA 


AA 

AA 

1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 


MOHO OO OOO O AO OOOO OO OOOO OOOO OOOO OOO OOOO OOO JOK 


MMONOMOOOldaa aora TRIVIAL CHEMIZST POR CARLOS DORAL. AAdMMSSISSSRIPRPlPIPIRPIEIEOR 
HORARIO ROO RO ORO OOO AA IO ROO OR OOO OOOO OA ORO RO ROO OOO OOOO 


OOOO IO OOOO OOO IO RIOR IO OOO OOOO O OR A RR A AA 
FOO do do (C) EDICIONES SIGLO CULTURAL (1987) HAHAHA AAA AAA 
FORO JOOST ROO OOOO OOOO OOOO OIE OOOO ot 


EXA AA LAR ARA AO 


* INICIALIZACION * 
OOOO OOOO dk 


SCREEN O 
KEY OFF 
COLOR 6 
CLS 
DIM P: 
DIM 
DÍM 
DIM 
DTM 
FOR 


Qr(5) 

H(8) 

a(87) 

F=1 TO 57 
READ P4(F),R$(F) 
NEXT F 

REM 

EEM AA OOOO OOOO AAA AAA AAA AAA 
REM * PRESENTACION Y RECOGIDA DE NIVEL + 
REM RASO OOOO SISI OOOO lok 
REM 
LOCATE 4,1 
PRINT DU 
049! 
yn 


ALAN 
Qe QQ 
2Q Qu 


UU 
DU 
DU 


TE 
1 
El 


MM MM ' 
MMMM MMMM 
MMMMMM  MMMMMM 


El 
TI 
13 


ETCCECCCES 
ce OS 
AÑ E 

AA" 
PRINT QQ Qu 
QQ Q002 


Q0A4L00A0a 


QQ UU DU 
919) 1919) 


DUUUVUUDOU 


y, 
11 
TT 


MM 
MM 
MM 


MMMMMM MM 
MM MM 
MM 


TI 
II 
Pl 


cc 
elo cc 


AA Cee cececere 


AA" 

FOR C=1 TO 50 
SOUND 100+INT(RND*800), 1 

NEXT C 

LOCATE 20,26 

PRINT "PULSA /ENTER. PARA COMENZAR" 

IF INKEY$<>CHR$(13) THEN GOTO 1370 

LOCATE 20,20 : 

LET ER=0 

RANDOMIZE TIMER 

INPUT * ( 

GOSUB 2320 

LET ND=VAL(A3) 

IF ER=1 OR ND>5 OR ND <1 THEN LOCATE 20,56:PRINT SPACE$(E):GOTO 1380 

LET P=0 

LET B=0 

LET Y=10+(NDx*2) 

LOCATE 20,21 

INPUT "( CUANTAS PREGUNTAS QUIERES 

LET ER=0 

GOSUB 2820 

LET N=VAL(AS) 

IF ER=1 OR N-1 OR N>37 


NIVEL DE DIFICULTAD(1-5) ";A$ 


CE AR 


TIEN LOCATE 20,59:PRINT SPACES$(E):GO0TO 1480 


1540 
JU5ó 
1560 
1570 
1530 
1590 
1606 
1610 
1620 
1630 
1040 
1650 
1660 
1570 
106530 
1690 
11700 
a O) 
1720 
1730 
17340 
17D 
22260 
LIO 
17380 
1790 


1300 


1550 
1360 
1570 
1330 
1890 
1900 
1916 
1920 
1950 
1940 
1950 
1960 
1970 
1930 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
20650 
2070 
2080 
2090 
2100 


2110: 


2120 
2130 
2140 
2150 
21650 
2170 
2180 
2190 
2200 


“LOC 


COL 
PK] 
COL 
FOR 


NEX 
ELM 
BEM 
E.EM 
REM 
REM 
FOR 


ATE 
OR 
N'T' 


JO, 230 


21) 


OR £ 
od TOS 
FOR 24 TO 500 
NEXT OX 
REEP 
LE 


MA OOOO 
Y FROGRAMA PRINCIPAL + 
FOO ROI OOOO A A 


Wes TON 

Cia 

LET XI1-20 

¡A A 

LED YT=S 

LET Y2p>NDZ) 
GOSUB 3840 

LET Xiu5 

LEE ROI 

ED TL=S 

LES Y*E=7 

GOSUE 3340 

LET X1-64 

LET X2=69 

LE Yi=5 

LET Y2=7 

GOSUB 3840 

LOCATE 4,3 

PRINT 'N. PREGUNTAS” 
LOCATE 4,62 

PRINT "P. ACERTADAS" 
LOCATE 2,24 

PRINT “TI RTVIaLb 
LOCATE 6,6 


PRINT P 
LOCATE 6,65 
PRINT B 
LET C=1 


LET RN=1+INT(RNDx87) 

IF A(RN)=1 THEN GOTO 19 
LET A(RN)=1 

FOR F=1 TO ND+3 


- ATENCION EMP:EZAN LAS 


CHEM II 


60 


LET H(F)=38+INT(RND*38) 


NEXT F : 
FOR F=1 TO ND+3 
FOR C=F+1 TO ND+3 


IF H(F)=H(C) OR H(F)=RN THEN GOTO 


NEXT € 
NEXT F 
FOR F-1 TO ND+3 

LET Q$(F)-=R$(H(F)) 
NEXT F 
LET R-1+INT(RNDx(ND+2)) 
LET Q$(R)=R$(RN) 
LET C=1 


FOR F=5 TO 8+(NDx*x2) STEP 2 


LOCATE F,22 
PRINT C;"-.";Q$(C) 
LET C=C4+1 

NEXT F 

LOCATE Y,20 

PRINT SPACE$(58) 

IF RN<44 THEN M$="ACIDO 


"+P$(RN) 


S 


PREGUNTAS 


po 


1990 
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2210 IF RN>51 THEN M$="HIDROXIDO "+PS$(RN) 
220 IF RN>44 AND RN<52 TREN M$-"ACIDO "+P3S(RN)+"HIDRICO” 
2230 LOCATE Y,20 

2240 PRINT “( "“";MS5;" 2" 

2250 LOCATE Y,24+LEN (M$) 

2260 LET B3=INKEYS$ 

2270 IF B$<"1" OR B$>CHR$(50+ND) THEN GOTO 2260 
2280 IF VAL(B$)=R THEN GOSUB 4320:GOTO 2300 
2290 GOSUB 4140 

2300 LET P=P+1 

2310 LOCATE Y,20 

2320 PRINT SPACE$S(60) 

2330 LOCATE Y, 32 

2340 PRINT “PULSA UNA TECLA” 

2350 IF INKEY$="" THEN GOTO 2350 

2360 NEXT W 

2370 REM 

2380 REM Add lOO OSOS lO lO OSORIO ORO lololo ok 
2390 REM * PRESENTACIÓN DE LOS RESULTADOS * 
2400 REM MOMO SISIS SISSI 
2410 REM 

2420 CLS 

2430 LET X1=22 

2440 LET X2=58 

2450 LET Y1=5 

2460 LET Y2=16 

2470 GOSUB 3840 

2480 LOCATE 3,26 

2450 PRINT "TRIVIAL CHAHEMISCI" 
2500 LOCATE 6,30 

2510 PRINT "RESULTADO DEL CONTROL" 

2520 LOCATE 838,24 


2530 PRINT "NUMERO DE PREGUNTAS......... "5N 

2540 LOCATE 10,24 

2550 PRINT "PREGUNTAS ACERTADAS......... SB 

2560 LOCATE 12,24 

2570 PRINT “PORCENTAJE QUIMICO.......... ";INT((B*x100)/N);"%" 


2580 *-LOCATE 14,24 

2590 PRINT "NOTA DEL CONTROL............ r 
2600 LOCATE 14,52 

2610 COLOR 20 

2620 PRINT INT((B*x10)/N) 

2630 COLOR 5 

25840 LOCATE 20,20 

2650 PRINT "( QUIERES HACER OTRO EXAMEN (S/N) 2?" 
2680 LET K$=-INKEYS$ 

2670 IF K$="S" OR K$="s" THEN RUN 

2680 IF K$="N" OR K$="n" THEN GOTO 2700 

2690 GOTO 2650 

2700 REM 

2710 REM ASS SIOlOROOOJOK 

2720 REM * DESPEDIDA + 

2730 REM AdASSS SOS IOJOK OK 

2740 REM 

2750 CLS 

ZTCGOTPRENE “ADIOS .veioco.s iS 

2770 PRINT:PRINT:PRINT 

2780 PRINT "ESPERO QUE QUIERAS VOLVER A JUGAR CONMIGO. " 
2790 PRINT:PRINT:PRINT:PRINT 

2800 END 

2810 REM 

2820 REM dad lSIOIS SISSI lSS SOS ISIOROK 
2830 REM *** CONTROL DE ERRORES DEL INPUT *xx 
2840 REM dd+aSSSSSS SOS SISSI lS ISSO OI JOIOJOK 
2850 REM 

2860 LET E=-LEN(AS$) 


2870 
2880 
2890 
2900 
2910 
2920 
2930 
2940 
2950 
2960 
2970 
2980 
2990 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
30830 
3090 
3100 
3110 
3120 
3130 
3140 
3150 
3160 
3170 
3180 
3190 
3200 
3210 
3220 
3230 

240 
3250 
3260 
3270 
3280 
3290 
3300 
3310 
3320 
3330 
3340 
3350 
3360 
3370 
3380 
3390 
3400 
3410 
3420 
3430 
3440 
3450 
3460 
3470 
3450 
3490 
3500 
3510 
3520 


IF E<1 OR E>2 THEN LET ER=1: RETURN 
IF A5C(A$)<49 OR ASC(A3)>56 THEN LET ER=1 


RETURN 


REM 


REM ARAS OSOS OOOO OOO OOO SOS OSOS OSO OOOO ISSO IO IOROIOROIOJOOK 


REM 4x*x% DATAS DE LAS PREGUNTAS Y LAS RESPUESTAS *x*x* 
REM SMS lSO SSA HOlS ISSO ISSO OSO tOdO RSS lalo lO OJO OK 


REM 

DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


HIPOFLUOROSO,H F O 
FLUOROSO,H F 02 
FLUORICO,H F 03 
PERFLUORICO,H F 04 
HIPOCLOROSO,H Cl O 


CLOROSO,H Cl 
CLORICO,H Cl 


02 
03 


PERCLORICO,H C1 04 
HIPOBROMOSO,H Br O 
BROMOSO,H Br 02 
BROMICO,H Br 03 
PERBROMICO,H Br 04 
HIPOYODOSO,H 1 O 


YODOSO,H I 02 
YODICO,H 1 03 
PERYODICO,H I 04 
HIPOSULFUROSO,H2 S 02 


SULFUROSO, H2 S 03 
SULFURICO,H2 $S 04 


HIPOSELENIOSO,H2 Se 02 


SELENIOSO, H2 Se 03 
SELENICO,H2 Se 04 


HIPOTELUROSO,H2 Te 02 


TELUROSO,H2 Te 03 
TELURICO,H2 Te 04 
HIPONITROSO,H3 N O 
NITROSO,H3 N 02 
NITRICO,H3 N 03 


HIPOFOSFOROSO,H3 P O 


FOSFOROSO,H3 P 02 
FOSFORICO,H3 P 03 


HIPOARSENIOSO,H3 As O 


ARSENIOSO,H3 As 02 
ARSENICO,H3 As 03 


HIPOANTIMONIOSO,H3 Sb O 
ANTIMONIOSO,H3 Sb 02 


ANTIMONICO,H3 Sb 03 


HIPOBISMUTOSO,H3 Bi O 


BISMUTOSO,H3 Bi 02 
BISMUTICO,H3 Bi 03 
CARBONOSO, H2 Co 02 
CARBONICO,H2 Cu 04 
SILICIOSO,H2 Si 02 
SILICICO,H2 Si 04 

CLOR,H C1 

FLUOR,H F 

BROM,H Br 

YOD,H 1 

SULF, H2 S 

SELEN, H2 Se 


TELUR,H2 Te 


LITICO,Li (0H) 
SODICO,Na (0H) 
POTAZICO,K (0H) 


RUBIDICO,Rb (0H) 


CESICO, Cs (0H) 
ARGENTIOSO, Ag (0H) 
ARGENTICO, Ag (0H)2 
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3530 DATA CUPROSO, Cu (0H) 
3540 DATA CUPRICO, Cu (0H)2 
5550 DATA AUROSO, Au (0H) 

3560 DATA AURICO, Au (0H)3 
3570 DATA CALCICO, Ca (0H)2 
3580 DATA BERILICO,Be (0H)2 
3590 DATA ESTRONCICO, Sr (0H)2 
3600 DATA BARICO,Ba (0H)2 
3610 DATA RADICO,Ra (0H)2 
3620 DATA MAGNESICO, Mg (0H)2 
3630 DATA ZINCICO, Zn (0H)2 
3640 DATA CADMICO,Cd (0H)2 
3650 DATA FERROSO, Fe (0H)2 
3850 DATA,FERRICO,Fe (0H)3 
3670 DATA NIQUELOSO,Ni (0H)2 
3680 DATA NIQUELICO,Ni (0H)3 
3690 DATA CROMOSO, Cr: (0H)2 
3700 DATA CROMICO, Cr (0H)3 
3710 DATA COBAL.TOSO, Co (0H)2 
3720 DATA COBALTICO, Co (0H)3 
3730 DATA MANGANOSG, Mr (OH): 
3740 DATA MANGANICO, Mn (0H)3 
3750 DATA ALUMINICO,A1 (0H)3 
3760 DATA BORICO,Bo (0H)3 
3770 DATA PLUMBOSO, Pb (0H)2 
3730 DATA PLUMBICO,Pb (0H)4 
3790 DATA ESTANNOSO, Sn (0H)2 
3800 DATA ESTANNICO, Sn (OH)4 
3810 DATA PLATINICO,Pt (0H)4 
3820 DATA IRIDICO, Ir (0H)4 
3830 REM i 

3840 REM ASS IO O O dd O OOO O A 
3850 REM *** DIBUJO DE LAS VENTANAS xx 
3860 REM 4444 OOOO OOOO o O OOO 
3670 REM 

3880 LOCATE Y1,X1 

3890 PRINT CHR3$(201) 

3900 LOCATE Y1,X2 

3910 PRINT CHR$(1827) 

3920 LOCATE Y2,X1 

39330 PRINT CHR$(200) 

3940 LOCATE Y2,x2 

3950 PRINT CHR$(188) 

39680 LET F=-X1+1 

3970 LOCATE Y1,F 

3980 PRINT CHR$(205) 

3990 LOCATE Y2,F 

4000 PRINT CHR$(205) 

4010 LET F=-F+1 

4020 IF F<X2 THEN GOTO 3970 
4030 LET F-Y1+1 

4040 LOCATE F,X1 

4050 PRINT CHR$(186) 

4060 LOCATE F,X2 

4070 PRINT CHR$(136) 

40380 LET F=F+1 

4090 IF F<Y2 THEN GOTO 4040 
1100 RETURN 

4110 REM 

4120 REM ASSSOOSOIOSIOISIOIRISIOOISIOOR Ak 
4130 REM *x4* PREGUNTA MALA ! x*x*x* 
4140 REM OSONA A AAA AAA 
4150 REM 

4150 LOCATE Y,20 


MATO PRINTER AA MUDUYYY, MAABAL ZELDA 


4180 FOR F=900 TO 10€ STEP 30 
4190 SOUND F, 1 


NEXT F 
4210 LOCATE Y,20 
4220 PRINT ” 
4230 COLOR 20 
4240 LOCATE 3+(R+2),27:PRINT R$(EKN; 
4250 COLOR 5 

4260 FOR F=1 TO 3000 

4270 NEXT F 

4280 RETURN 

4290 REM 

4300 REM ASS lolo lO lO lO OIJ JO kk 
4310 REM *+*x* PREGUNTA BIEN ! *+x*x* 
4320 REM AMSISRISIRSIRSIROIOIOISISS”lOIO Ol IOIOIPIOK 
4330 REM 

4340 LOCATE Y,20 
4350 PRINT "------- -- 
4360 FOR F-1 TO 100 
4370 SOUND 100+(INT(RND*x200)),.5 
4380 NEXT F 

4390 LET B=B+1 

4400 FOR F=1 TO 1000 

4410 NEXT F 

RETURN 


MUY, BIEN 


e Agenda telefónica para 
[m Spectrum 


Normalmente, es muy necesario tener 
almacenados de alguna manera los te- 
léfonos y las direcciones de mucha gen- 
te. Estas direcciones, que no se usan con- 
tinuamente, aunque no por ello son me- 
nos importantes, tienden a perderse y a 
volvernos locos. 

Con este programa podremos almace- 
nar los nombres, dirección y teléfono de 
todas las personas que queramos para 
que no se nos pierdan. 

El programa nos permite realizar las si- 
guientes funciones: 

1. INTRODUCIR FICHAS. Añadir fichas al 
fichero hasta que le demos orden de pa- 
rar. 

2. MODIFICAR FICHAS. En el caso de 
que algún conocido cambie de teléfono 
o de dirección, podemos modificar su fi- 
cha perfectamente. 

3. VER FICHAS. Podemos ver la ficha o 
fichas que deseemos en el momento que 
queramos. El ordenador realiza la bús- 
queda. 


LA RESPUESTA CORRECTA ERA “;R$(RM) 


AGENDA TELEFOMTAA 


E INTROCUECIR FICHAS 
E-MnODbIFICAR FICHAS 
E-VER FICHAS 


E IMPRESORA 
A-GRABAR FICHAS 
B-CARGAR FICHAS 


Fig. 4. Menú principal. 


4. IMPRESORA. Podemos imprimir la lis- 
ta de las personas con su dirección y su 
teléfono por impresora. 

5. GRABAR Y CARGAR FICHAS. Pode- 
mos grabar el fichero en cinta o en mi- 
crodrive para más tarde volver a utilizar- 
lo. 
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6. BORRAR FICHA. En el caso de que no 
necesitemos cierta dirección, podemos 


7. ORDENAR AGENDA. Nos permite or- 
denar toda la agenda por el nombre de 


borrarla. 


la persona. 


FRUGRAMA: AGENDA TELEFONICA 


10 REM 
11 REM 
13 REM 
14 REM 
15 REM 
16 REM 
17 REM 
20 REM 
21 REM 
22 REM 
23 REM 
24 REM 
25 REM 
71 INPUT "De cuantas fichas va a constar 
72 LET e=VAL n$ 

74 DIM n$(e, VAL "53") 

75 LET fi=NOT PI 

80 BORDER VAL "1" 

90 PAPER VAL "1" 


ORO OO OOOO OO OOOOOSSSIOOk 
x* AGENDA TELEFONICA xx 
AOS OOOO OOOO Ok 
FOSO lOldololOk POR. AMSIOIOOOlO OK 
OOOO OOOO OOOO Ok 
Xototook CARLOS DORAL Xxokx 
ISSO SISSI SlS ISO lOlSlOlOJO OK 


FOSO SS jSlSlS OSOS lSl”SO SS lSl”lS SOS lOlolOlOJOK: 
*x(c) Ediciones Siglo Cultural * 
*x(c) 1987. k 
SS SOS SS SS” SS” SOS lolSlSlSlSlOl”lSlPlPIPIOK 


el fichero (1-600) 9 "; 


100 INK VAL "7" 

101 BRIGHT NOT PI 

110 CLS 

120 PRINT AT NOT PI,VAL "8"; FLASH 1;"AGENDA TELEFONICA" 

130 PRINT AT VAL "3",VAL "3"; INVERSE 1;"1"; INVERSE 0; "-INTRODUCIR FICHAS" 
140 PRINT AT VAL "5",VAL "3"; INVERSE 1;"2"; INVERSE 0;"-MODIFICAR FICHAS" 
150 PRINT AT VAL "7",VAL "3"; INVERSE 1;"3"; INVERSE O; "-VER FICHAS" 

160 PRINT AT VAL "9",VAL "3"; INVERSE 1;"4"; INVERSE 0; "-IMPRESORA" ' 
170 PRINT AT VAL "11",VAL "3"; INVERSE 1;"5"; INVERSE 0; "-GRABAR FICHAS" 
180 PRINT AT VAL "13“,VAL "3"; INVERSE 1;"6"; INVERSE 0;"-CARGAR FICHAS" 
190 LET k$-INKEYS$ 

200 IF k$-"1" THEN GO TO VAL "1000" 

210 IF k$-"2" AND fi>NOT PI THEN GO TO VAL "2000" 

220 IF k$="3" AND fi>NOT PI THEN GO SUB VAL "3000": GO TO VAL "80" 
230 IF k$="4" AND fi>NOT PI THEN GO SUB VAL "4000": GO TO VAL "80" 
240 IF k$="5" AND fi>NOT PI THEN GO SUB VAL "5000": GO TO VAL "80" 
250 IF k$="6" THEN GO TO VAL "6000" 

260 GO TO VAL "190" 

999 REM 

1000 REM oatSO ROSSO OSOS OOOO IOIOROJAOK 

1010 REM * INTRODUCIR FICHAS  x 
1020 REM deRRaTSlSS SS SIO OS SlOIOIOIOOIOJOJOK 

1025 REM 
1030 BORDER NOT PI 
1040 PAPER NOT PI 
1050 INK VAL "6" 
1060 CLS 
1070 PRINT AT NOT PI,VAL "8"; FLASH VAL "1"; "INTRODUCIR FICHAS" 


1080: PRINT AT “VAL “2”, VAL. "20"; "“FICHAS= "¡fi;” 

1085 LET fi=fi+1 

1090 PRINT AT VAL "5",NOT PI;"Nombre 

1100 PRINT AT VAL "8",NOT PI;"Apellidos : 

1110 PRINT AT VAL "11”",NOT PI;"Domicilio : 

1120 PRINT AT VAL "14",NOT PI;"Telefono 

1130 INPUT "” "; PAPER VAL "6";" "$ PAPER NOT PI; " 
ombre= "; LINE m$ 

1140 IF LEN m$<VAL "1" OR LEN m$>VAL "12" THEN GO TO VAL "1130" 
1141 LET es=" LET m$=m$+e$(LEN m$ TO VAL "11”) 


1150 PRINT PAPER VAL "4"; INK NOT PI;AT VAL "5",VAL "12";m$ 


LINE n$ 


1160 ”* INPUT * *5>PAPER- VAL. "65" "> PAPER NOT PI,” A 


pellidos= "; LINE as$ 

1170; TF LEN as$<VWAL 1” OR. LEN asS>VAL “12” THEN GO TO VAL "1160” 

1171, LET es=" ": LET as=-a$+es(LEN a$ TO VAL 11") 

1180 PRINT PAPER VAL "4"; INK NOT PI;AT VAL "8",VAL "12";a$ 

1190 INPUT * >. PAPER VAL "6" s. PAPER NOT PI" D 
omicilio= . LINE es$ 

1200 IF LEN c$<VAL "1” OR LEN c$>VAL "20" THEN GO TO VAL "1190" 

1201 LET es$=" *: LET c$=c$+e$(LEN c$ TO VAL "19"”) 

1210 PRINT PAPER VAL "4"; INK NOT PI; AT VAL "11”,VAL "“12";e$ 

1220 INPUT ” "s PAPER VAL “B"3." "  PABER NOI.PL;" T 
elefono= "; LINE t$ 

1230 IF LEN ts<VAL "i" OR LEN tg$>VAL "9" THEN GO TO VAL "1220" 

1231 LET e$=” "5 LET t$=tg+es(LEN t$ TO VAL -"8") 


1240 PRINT PAPER VAL “4”; INK-NOT PI¿AT VAL “14",VAL "12";t$ 

1241 LET n$(fi)=ms+as+c$+t$ 

1245 PRINT AT VAL "2", VAL “20”; “RICHAS= “3f15 

1250 PRINT *NOT PI; PAPER VAL "5"; INK NOT PI; BRIGHT VAL "1"”";"”M” MENU ,S 

PACE? -CONTINUAR” 

1260 LET k$=INKEYS$ 

1270 IF k$=" " THEN GO TO VAL "1060" 

1280 IF k$="M" OR k$="m" THEN GO TO VAL "80" 

1290 GO TO: VAL. "1260" 

1999 REM 

2000 REM ASSSS SIS lSISIES SS SIEISlPIOISIPIOIPIRIORAOK 

2010 REM * MODIFICAR FICHAS k 

2020 REM mado Ro k ok 

2025 REM 

2030 BORDER NOT PI 

2040 PAPER NOT PI 

2050 INK VAL "7" 

2060 CLS 

2070 PRINT AT NOT PI,VAL "10"; FLASH VAL "1"; "MODIFICACION" 

2080 PRINT AT VAL "5",VAL "5"; INVERSE VAL "1";"1"; INVERSE NOT PI;"-BORRAR FICH 

A" 

2090 PRINT AT VAL "8",VAL "5"; INVERSE VAL "1";"2"; INVERSE NOT PI;"-MODIFICAR F 

ICHAS" 

2100 PRINT AT VAL "11",VAL "5"; INVERSE VAL "1"”;"3"; INVERSE NOT PI;"-ORDENAR AG 

ENDA" 

2102 PRINT AT VAL "14",VAL "5"; INVERSE VAL "1";"4"; INVERSE NOT PI; "-MENU" 

2110 LET k$=-INKEYS$ 

2120 IF k$="1" THEN GO TO VAL "2200" 

2130 IF k$="2" THEN GO TO VAL "2400" 

2140 IF k$="3" THEN GO SUB VAL "2700": GO TO VAL "2000" 

2141 . IF k$-"4" THEN GO TO VAL "80" 

2150 GO "TO VAL "2110" 

2155 REM 

2200 REM ARSS SOS SSI jSjOl”l”lOKAJRJOOK 

2210 REM x BORRAR FICHA k , 

2220 REM ho af a kk ak ok 

2225 REM 

2230 CLS 

2240 PRINT AT NOT PI,VAL "10"; FLASH VAL "1”;"BORRAR FICHA" 

2250 INPUT "NUMERO DE FICHA A BORRAR (SI NO LO SABES PULSA "; INVERSE 1;"ENTER"; 
INVERSE 0;") = "; LINE v$ 

2260 IF v$="" THEN GO TO VAL "2370" 

2270 FOR £=VAL "1" TO LEN v$ 

2280 IF CODE v$(f TO f)<VAL "48" OR CODE v$(f TO f)>VAL "57" THEN GO TO VAL 
“2290” 

2290 NEXT f 

2300 LET n=VAL vs$ 

2310 IF n<VAL. "1" OR n>fi- THEN GO TO VAL "2250" 

2320 LET ns$(n)="" 

2330 OUT VAL, "254", VAL. "7" 

2340 CLS 

2350 PRINT AT VAL "11",VAL "12"; FLASH VAL "1"; "BORRADA" 

2360 GO TO VAL "2000" 


2 PROGRAMAS 


2370' INPUT "NOMBRE DE LA PERSONA DE LA FICHAA BORRAR= "; LINE v$ 

2372 FOR f=WAL. "1" TO £i 

2373 LET e$-=n$(f) 

2374 LET e$=e$( TO LEN v$) 

2375 IF v$=e$ THEN GO SUB VAL "9000": OUT VAL "254",VAL "7": CLS : PRINT AT 
VAL "11”,VAL "12"; FLASH VAL "1"”;"BORRADA": FOR f=VAL "1" TO VAL "40": NEXT f: G 
O TO. VAL *2000" 

2376 NEXT f 

2378 PRINT AT VAL "10",NOT PI;"ESE NOMBRE NO ESTA EN LA AGENDA. PRUEBAS OTRA VEZ 
(S/N) 2" 

2380 POKE VAL "23658",VAL "8" 

2390 LET k$=INKEY$ 

2392 IF k$="S" THEN GO TO VAL "2200" 

2393 IF k$="N" THEN GO TO VAL "2000" 

2395.60. TO VAL “2380” 

2396 REM 

2400 REM AdsSS SOS E ISSORSISISSlO ORO ROKOK 

2410 REM * MODIFICAR FICHAS k 

2420 REM AdSSS SS SIS ISSO lOORSISOOIOjOIOROJOJOK 

2430 CLS 

2435 REM 

2440 INPUT "NUMERO DE FICHA A MODIFICAR (SI NO LO SABES PULSA "; INVERSE 1; "ENTE 
R"; INVERSE 0;")? "; LINE v$ 

2445 IF v$="" THEN LET n=VAL "1": GO TO VAL "2570" 

2450 FOR f=VAL "1" TO LEN v$ 

2460 IF CODE v$(f TO f)<VAL "48" OR CODE v$(f TO f)>VAL "57" THEN GO TO VAL 
"2400" 

2470 NEXT f 

2480 LET n=VAL v$ 

2490 IF n<VAL "1" OR n>fi THEN GO TO VAL "2400" 

2491 GO TO VAL "2570" 

2500 INPUT "NOMBRE DE LA PERSONA PARA LA MO-DIFICACION DE SU FICHA ? "; LINE v$ 
2510 IF v$="" THEN GO TO VAL "2500" 

2520 FOR £f=VAL "1" TO fi 

2530 LET ¡j$=n$(f) 

2531 LET j$=j$( TO LEN v$) 

2535 IF v$=j$ THEN GO TO VAL "2570" 

2540 NEXT f 

2550 PRINT AT VAL "10",NOT PI;"ESE NOMBRE NO ESTA EN LA AGENDA. PRUEBAS OTRA VEZ 
(S/N) 2" 

2560 POKE VAL "23658",VAL "8" 

2562 LET k$-INKEYS$ 

2564 IF k$="S" THEN GO TO VAL "2400" 

2566 IF k$="N" THEN GO TO VAL "2000" 

2568 GO TO VAL "2560" 

2570 PRINT AT NOT PI,VAL "10"; FLASH VAL "1"”;"MODIFICACION" 

2571 LET e$=n3(n) 

2572 LET m$=e$( TO VAL "12") 

2573 LET a$s=es(VAL "13" TO VAL "24") 

2574 LET c$=es(VAL "25" TO VAL "44") 

2575 LET t$=es(VAL "45" TO ) 


2578 PRINT AT VAL "5",NOT PI;'Nombre : “;m$ 

2580 PRINT AT VAL "8",NOT PI;"Apellidos : ";a$ 

2590 PRINT AT VAL "11"”,NOT PI;"Domicilio : ";c$ 

2600 PRINT AT VAL "14",NOT PI;"Telefono : ";t$ 

2610 INPUT "Nuevo nomhre= "; LITNF m$ 

2611 IF LEN m$<VAL "1" OR LEN m$>VAL "12" THEN GO TO VAL "2610" 
2613 LET e$=" a 


2614 LET m$=m$+e$(LEN m$ TO VAL "11"”) 
2620 PRINT  INK NOT PI;AT VAL "5"”,VAL "12"; PAPER VAL "5"; BRIGHT VAL "1";m$ 


2630 INPUT "Nuevos apellidos= "; LINE a$ 
2631 IF LEN a$<VAL "1" OR LEN a$>VAL "12" THEN GO TO VAL "2630" 
2632 LET e$=" bl 


2633 LET a$=as$+e$ (LEN a$ TO VAL "11”) 

2640 PRINT INK NOT PI;AT VAL "8",VAL "12"; PAPER VAL "5"; BRIGHT VAL "1";a$ 
2650 INPUT "Nuevo domicilio= "; LINE c$ 

2651 IF LEN c$<VAL "1" OR LEN cg$>VAL "20" THEN GO TO VAL "2650" 


2653 
2654 
2660 
2670 
2671 
2672 
2673 
2675 
2676 
2681 
2682 
2683 
2684 


2685 
2686 


2689 
2700 
2710 
2720 
2725 
2730 
2740 
2750 
2760 
2765 
2770 
2780 
2790 
2800 
2810 
2820 
2850 
2860 
2870 
2880 
2890 
2891 
2900 
2910 
2920 
2940 
2999 
3000 
3010 
3020 
3025 
3030 
3040 
3050 
3060 
3070 


3120 
E 


, 


LET e$=" 
LET có$=c$+es(LEN c$ TO VAL "19") 
PRINT INK NOT PI;AT VAL "11”,VAL "12"; PAPER VAL "5"; BRIGHT VAL "1";c$ 
INPUT "Nuevo telefono= "; LINE t$ 
IF LEN t$<VAL "1" OR LEN t$>VAL "9" THEN GO TO VAL "2670" 
LET e$=" E 
LET t$=-t$+es(LEN t$ TO VAL "8”) 
PRINT INK NOT PI;AT VAL "14",VAL "12"; PAPER VAL "5"; BRIGHT VAL "1";t$ 
LET n$(n)=ms+ast+c$+t$ 
PRINT $NOT PI; INVERSE VAL "1";"” ALGUNA MAS(S/N)? E 
POKE VAL "23658",VAL "8" 
LET k$-INKEY$ 
IF k$-"S" THEN GO TO VAL "2400" 


IF k$="N" THEN GO TO VAL "2000" 
GO TO VAL "2682" 


REM 
REM oO SOS lS SS IS SIS jSO Sl” OS lSlOSJSlOlOJOK 
REM * ALGORITMO DE ORDENACION x* 
REM SS SS S SS SIS ISS ISSO lSOOISOIOJOK 
REM 
BORDER NOT PI 
PAPER NOT PI 
INK VAL "7" 
CLS 
PRINT AT NOT PI,VAL "10"; FLASH VAL "1"; "ORDENACION" 
PRINT AT VAL "15",VAL "8";"PULSA UNA TECLA” 
LET k$-INKEYS 
IF k$="" THEN GO TO VAL "2780" 
OUT VAL "254",VAL "7" 
CLS 
PRINT AT VAL "11",VAL "11"; FLASH VAL "1"; "ORDENANDO" 
FOR c=VAL "1" TO fi-VAL "1" 
FOR f=c TO fi 
IF n$(c)>»n$(f) THEN GO SUB VAL "2900" 
NEXT f 
NEXT c 
RETURN 
LET e$=n$(c) 
LET n$(c)=n$(f) 
LET n$(f)=e$ 


RETURN 

REM 

REM ASS SO SOS lOIOSIORSIOIOIOIOROIOJOK 
REM *x VER FICHAS *k 
REM RSS OSOS SOS OSOS OJOlOJOJOK 
REM 


BORDER NOT PI 

PAPER NOT PI 

INK VAL "7" 

CLS 

IF fi<=NOT PI THEN RETURN 

INPUT "DESDE QUE NUMERO ("; INVERSE 1;"ENTER"; INVERSE 0;"” DESDE ELPRIMERO) 
LINE v$ 


3140 FOR f=VAL "1" TO LEN v$ 


3150 


IF CODE v$(f TO f)<VAL "48" OR CODE v$(f TO f)>VAL "57" THEN GO TO VAL 


"3120" 


3160 
3170 
3211 
3214 
3215 
3220 
3231 
3232 
3233 
3234 
3235 


NEXT f 
LET n2=fi 
IF v$="" THEN LET ni=VAL "1": GO TO VAL "3231" 
IF VAL v$<VAL "1" OR VAL v$>fi THEN GO TO VAL "3000" 
LET n1=VAL v$ 
LET f=n1 ; 
PRINT AT NOT PI,VAL "10"; FLASH VAL "1";"VER FICHAS” 
PRINT AT VAL "5",NOT PI; "Nombre 
PRINT AT VAL "8",NOT PI;"Apellidos 
PRINT AT VAL "11"”,NOT PI;"Domicilio :" 
PRINT AT VAL "14",NOT PI;"Telefono 


2 PROGRAMAS 


3238. PRINE "AT VAL. +2, VAL “Z20"; "FICHA= *:£ 

3237 LET m$=n$(f) 

3240 PRINT (AT VAL. “5”, VAL “"12"sm8( TO VAL." 12") 

3250 'PRINT AT VAL “8”, VAL, “12"5mB(VAL “13” TO VAL “24") 

3260 PRINT AT VAL “11”, VAL “"12"¿m8(VAL "25" TO VAL, “44”") 

3270 PRINT-AT VAL “14”,VAL “12":3m8$(VAL "45" TO ) 

3280 PRINT NOT PI;"*A”"; INVERSE 1;"-ADELANTE "; INVERSE 0;"*R”"; INVERSE 1; 

"ATRAS "; INVERSE 0;"*M”"; INVERSE 1;"”-MENU" 

3290 POKE VAL "23658",VAL "8" 

3295 LET k$=INKEYS$ 

3300 IF k$="A" AND f<n2 THEN LET f=f+1: RANDOMIZE USR 65044: CLS : GO TO VAL 
de Es NS 

3310: *". IE .KS="R" AND L£>VAL.*“1'" “THEN ' LET f=f=VAL “1: CLS + GO. TO VAL "3231" 

3320 IF k$="M" OR k$="m" THEN RETURN 

3330 GO TO VAL "3290" 

3999 REM 

4000 REM AdSSoSO SS SSI lSSIR ESE ISO ROIOJOKOK 

4010 REM x IMPRESORA k 

4020 REM AsaRaSS SS SS ESOS SOS lOIOROIOJOKOK 

4025 REM 

4030 BORDER VAL "7" 

4040 INK NOT PI 

4050 PAPER VAL "7" 

4060 CLS 

4070 INPUT "DESDE QUE FICHA QUIERES IMPRIMIR ("; INVERSE 1; "ENTER"; INVERSE 0;” 

DESDE TA 1) 2 *"; TITNE vs 

4071 IF LEN v$>VAL "3" THEN GO TO VAL "4070" 

4080 IF v$="" THEN LET ni=VAL “1” 

4090 INPUT "HASTA QUE FICHA QUIERES IMPRIMIR ("; INVERSE 1;" "ENTER"; INVERSE 0;” 

HASTA LA ULTIMA) ? "; LINE w$ 

4091 IF LEN w$>VAL "3" THEN GO TO VAL "4070" 

4LOO LE WS=>" (AND yv$=" ” THEN  LET-a2=fi:-LET n1i=VAL "1: G0' TO VAE. “4500” 

ALLO IP yS="" AND w8<>”" THEN LET ni=VAL, "1":. GO TO VAL “4132” ' 

4120 FOR f=VAL "1" TO LEN v$ 

4130 IF CODE v$(f TO f)<VAL "48" OR CODE v$(f TO f)>VAL "57" THEN GO TO VAL 
"4070" 

4131 NEXT f 

4132 FOR f=VAL "1" TO LEN w$ 

4140 IF CODE w$(f TO f)<VAL "48" OR CODE w$(f TO f£)>VAL "57" THEN GO TO VAL 

"4090" 

4150 NEXT f 

4160 LET n1=VAL v$ 

4170 LET n2=VAL w$ 

4180 IF n1<VAL "1" OR n2>fi THEN GO TO VAL "4000" 

4500 CLS 

4502 LPRINT " AGENDA 

4510 FOR f=n1 TO n2 

4511 LPRINT ?” 

4512 LPRINT " Ficha num. : “;f 

4520 LPRINT 

4525 LET m$=n$(f) 


4530 LPRINT "Nombre ms 10 VAL: “12") 

4535 LET a$=n$(f) 

4550 LPRINT “Apellidos : "“¿as(VAL "13" TO VAL “24") 
4555 LET c$=n$(f) 

4570 LPRINT "Domicilio : “;cs(VAL "25" TO VAL "44") 
4575 LET t$=n$(f) 

4590 LPRINT "Telefono : ";¡t$(VAL "45" TO >) 


4600 LPRINT 

4610 LPRINT "o o -- sá 
4620 LPRINT 

4630 NEXT f 

4640 LPRINT 

4650 LPRINT " XXX*k FIN DE AGENDA *x*xx" 
4660 RETURN 

4999 REM : 

5000 REM SS OSO SOS SOS SO ISSjO ORIO JOJOK 


REM x*x GRABAR AGENDA *k 
REM ASAS SISSI IOIO SO lOIOJSOIOJOYAOK 
REM 

BORDER NOT PI 

PAPER NOT PI 

INK VAL "7" 

CLS 


PRINT AT NOT PI,VAL "11"; FLASH VAL "1"; "GRABACION"” 
PRINT AT VAL "10",VAL "5";"Nombre de fichero: " 


INPUT "Nombre= "; LINE e$ 

IF LEN es$<VAL "1" OR LEN e$>VAL "10” THEN GO TO VAL "5090" 
SAVE e$ DATA n$() 

PRINT *NOT PI; PAPER VAL "6"; INK NOT PI;" QUIERES VERIFICAR (S/N) ? 
LET k$=INKEY$ 

IF k$="" THEN GO TO VAL "5130" 

IF k$="S" OR k$="s" THEN VERIFY "": RETURN 

RETURN 

REM 

REM ARSS SS SS SS O SOS lOO OOOO OK 

REM * CARGAR AGENDA k 

REM ASS SOS SOS IESO SOS IOIOJOOK 

REM 

BORDER NOT PI 

PAPER NOT PI 

INK VAL "7" 

CLS 


PRINT AT NOT PI,VAL "9"; FLASH VAL "1";"CARGA DE DATOS" 
INPUT "Nombre= "; LINE e$ 
IF LEN es$>VAL "10" THEN GO TO VAL "6080" 
PRINT AT VAL "10",VAL "12"; FLASH VAL "1"; BRIGHT VAL "1' 
LOAD e$ DATA n$() 
RETURN 
REM 
REM ASMSSSSOSSSOlOlSlOllSlOlSiO”jOJOK 
REM * BORRAR FICHA Xx 
REM AMSSSSS SS iSlSlSS SEO lO Jadk 
REM 
IF f=fi THEN LET n$(f)="": LET fi=fi-VAL "1": RETURN 
FOR e=f TO fi-VAL "1" 
LET n$(e)=n$(e+VAL "1") 
NEXT e 
LET fi=fi-VAL "1" 
RETURN 


'; "CARGANDO" 


Estudio 
detallado de 
un sistema 


s la fase final de todo 
el proceso de análisis 
y diseño. Es la etapa 
de culminación de la 
tarea de organiza- 
ción y estructuración 
de las informaciones 
y los procedimientos. 
En esta fase se producen los cuadernos 
de cargas necesarios para la realización 
del software correspondiente y para la 
puesta en marcha de los cambios orga- 
nizativos que subyacen en las futuras 
aplicaciones a implementar. 

A pesar de ello, es importante contro- 
lar que las especificaciones descritas en 
estos cuadernos de cargas no rebasen el 
marco en que se han definido las aplica- 
ciones correspondientes, según el plan- 
masa aprobado. Debe, por tanto, conti- 
nuar la tarea del comité director del 
plan, para supervisar estos aspectos del 
desarrollo de los trabajos. 

Se suelen establecer cinco fases suce- 
sivas en el desarrollo del estudio detalla- 
do de una aplicación: 

a) Fase de exploración 

En ella se deben reseñar y estructurar 
todos los casos que haya que tener en 
cuenta desde el punto de vista de la or- 
ganización y determinar las dificultades 
posibles que puedan surgir al aplicar las 
soluciones previstas en el plan-masa. 


TECNICAS DE ANALISIS 


En esta fase se debe investigar la apli- 
cabilidad de los principios de soluciones 
comunes. Al concluir la fase debe estar fi- 
jado el campo de aplicación del estudio 
y elegidas las orientaciones comunes o 
específicas para las soluciones que se 
van a concebir. 


b) Fase de concepción 

En esta fase se definen las diferentes so- 
luciones funcionales concebidas, deriva- 
das de las soluciones-tipo establecidas 
para resolver todas las situaciones espe- 
cificadas: una solución puede diferir de 
otra, quizá, sólo en la modificación de un 
aspecto organizativo o en la utilización 
de un medio material diferente. Se debe 
establecer un censo de entradas, sali- 
das, pantallas, tareas, datos..., que de- 
berán tenerse en cuenta en cada aplica- 
ción informática. Hay que detallar las fun- 
ciones que se han de automatizar. 


c) Fase de especificación 

En esta tercera fase se describen, ante 
todo, los elementos censados en la eta- 
pa precedente (entradas, salidas, pan- 
tallas, reglas de control, cálculos, normas 
de puesta al día, etc.). Usualmente, esta 
descripción a la que aludimos, se suele 
hacer bajo la forma de maquetas. Hay 
que diseñar, además, los puntos básicos 
de la solución técnica a aplicar). Esta 
etapa es sumamente importante en el 
conjunto del proceso, por lo que ha de 
ponerse atención para que sean valida- 
dos cuidadosamente todos los elemen- 
tos descritos, antes de pasar a la realiza- 
ción. 


d) Fase de organización detallada 
Esta es una etapa de estudio técnico 
de la arquitectura del software que se va 


a desarrollar y de las bases de datos que 
se van a implementar. 


Esto ha de ser considerado tanto des- 
de el punto de vista del futuro sistema, 
como desde el del paso de la situación 
actual a la futura que se desea imple- 
mentar (aspectos ya considerados, des- 
de el punto de vista funcional, en etapas 
anteriores). La validación de las solucio- 
nes diseñadas en esta fase es eminente- 
mente técnica y debe ser realizada, fun- 
damentalmente, por los servicios de mé- 
todos, explotación y sistemas. 


e) Fase de planificación 

En esta etapa hay que descomponer el 
trabajo pendiente de desarrollo en lotes 
(de realización, de puesta en marcha, 
de asistencia, etc.). A continuación hay 
que valorar estos lotes y, por último, pre- 
ver los medios personales y materiales 
que se van a dedicar a cada tarea. 


El resultado de este trabajo es un plan- 
ning detallado, junto con un presupues- 
to (detallado también) y actualizado de 
los costes previsibles. 


Como conclusión de todo este proce- 
so, el comité director debe evaluar la ta- 
rea desarrollada y aprobar parcial o to- 
talmente los desarrollos propuestos. 


Quedan las dos últimas fases del de- 
sarrollo de todo proyecto; la realización 
concreta de las aplicaciones y la puesta 
en marcha de los procesos mecaniza- 
dos; son tareas, ambas, sumamente im- 
portantes pero que no forman parte, pro- 
piamente, del análisis de las soluciones 
informáticas que hemos comentado. 


” Programación 
===" modular 
(continuación) 


XISTE en Basic una for- 
ma especial de la ins- 
trucción de llamada 
a una subrutina o mó- 
dulo (GOSUB) que 
permite simplificar 
cierto tipo de situa- 
ciones, reduciendo 
varias instrucciones a una sola. Suponga- 
mos, por ejemplo, que nos encontramos, 
en nuestro programa, en una instrucción 
donde tenemos que hacer lo siguiente: 

«Si la variable | vale 1, ejecutar el con- 
junto de instrucciones A. Si | vale 2, eje- 
cutar el conjunto de instrucciones B. Si 
vale 3, ejecutar el conjunto C. Suponga- 
mos, además, que después de ejecutar 
los grupos de instrucciones indicados, to- 
dos los caminos deben reunirse en la ins- 
trucción 8000 para continuar la ejecu- 
ción con el grupo de instrucciones D.» 

Hemos visto en capítulos anteriores 
que esto puede conseguirse así: 


1000 ON I GOTO 2000,3000, 4000 
2000 REM Grupo de instrucciones A 


2999 GOTO 8000 
3000 REM Grupo de instrucciones B 


3999 GOFO 8000 
4000 REM Grupo de instrucciones C 


4999 GOTO 8000 


8000 REM Grupo de instrucciones D 


TECNICAS 
DE PROGRAMACION 


El organigrama del programa anterior 
es el siguiente: 


lA Flg. 1. 


Existe una manera más elegante de 
conseguir el mismo resultado con progra- 
mación modular. En esta otra forma, el 
programa anterior quedaría asi: 


1000 ON I GOSUB 2000,3000, 4000 
1010 GOTO 8000 


2000 REM Grupo de instrucciones A 


2999 RETURN 
3000 REM Grupo de instrucciones B 


3999 RETURN 


4000 REM Grupo de instrucciones cr 


4999 RETURN 


REM Grupo de instrucciones 


cuyo organigrama es: 


(2000 ) 
Era 


(3000) (4000) 


lA 
Fig. 2. 


Obsérvese que, si colocáramos las ins- 
trucciones del grupo D justo detras de la 
instrucción 1000 (pasandolas a la etique- 


ta 1010), podríamos prescindir de la ins- 
trucción GOTO, que en el ejemplo apa- 
rece con la etiqueta 1010. 


Programación modular en el 
' lenguaje PASCAL 


Al contrario que el lenguaje Basic, que 
proporciona muy pocas posibilidades de 
hacer una programación modular 
correcta, el lenguaje Pascal está diseña- 
do para aprovecharla al máximo. En 
efecto, los módulos Pascal pueden ha- 
cerse verdaderamente cerrados en sí 
mismos e independientes del resto del 
programa donde se utilizan. Por esta ra- 
zón, es posible separarlos de dicho pro- 
grama y utilizarlos directamente en otros 
sin tomar tantas precauciones como exi- 
ge la programación en Basic para hacer 
lo propio. Además, la independencia de 
los módulos Pascal permite que varios 
programadores puedan colaborar en un 
mismo proyecto sin tener que ponerse de 
acuerdo en los nombres de las variables 
a utilizar, lo que facilita enormemente la 
eficacia de su trabajo. 

Veamos un ejemplo comparativo, que 
nos demuestre cuáles son las diferencias 
fundamentales entre la programación 
modular Basic y la programación modu- 
lar Pascal. Supongamos que deseamos 
construir un módulo que nos calcule la 
media de N números enteros. En el pro- 
grama principal leeremos estos números 
del teclado y los colocaremos en una va- 
riable que pueda contener una serie de 
datos. Luego llamaremos a la subrutina 
que calcula la media de estos datos y la 
imprimiremos. El programa podría que- 
dar así: 


10 REM Este programa lee 10 números 
y calcula su media 
20 PRINT "Dame diez números" 
30 LET N=10 
40 DIM X(N) 
SO FOR I=1 TO Nz INPUT X(1): NEXT 1 
60 GOSUB 1000: REM Cálculo de la media 
70 PRINT "La media es: "¿M 


1000 REM Subrutima que calcula la media 
1010 LET M=0 

1020 REM Acumulamos los números en M 
1030 FOR I=1 TO N:z LET M=M+X(1): NEXT 1 
1040 REM Calculamos su media 

1050 LET M=M/N 

1060 RETURN 


2 TECNICAS DE PROGRAMACIÓN 


Este programa funciona. Veamos, en 
efecto, cual es el resultado de su ejecu- 
ción: 


| RUN 
Dame diez números 


” 


/ 


“*- 00002 UN- 


o 


Y 
? 
2 
$ 
17 
P 
2 
? 
2 
La media es: 


5.5 


Sin embargo, supongamos que quere- 
mos aprovechar la subrutina para incor- 
porarla en otro programa principal dife- 
rente donde tambien necesitemos cal- 
cular la media. Nos encontraremos las si- 
guientes dificultades: 

1. La subrutina supone que debe cal- 
cular la media de los valores contenidos 
en la variable dimensionada X. Además, 
el valor de la variable N es igual al núme- 
ro de elementos de X de los que desea- 
mos hacer la media. En tercer lugar, la su- 
brutina pone el resultado (la media) en 
la variable M. Por último, la variable | se 
utiliza durante el cálculo. ¿Qué pasaría si 
nuestro nuevo programa, con el que que- 
remos integrar la subrutina, utilizara estas 
variables para otra cosa? Nos veríamos 
obligados a cambiar los nombres de 
cuatro variables, ya sea en el programa, 
ya en la subrutina. Esto puede no ser tan 
sencillo como parece. Si nos olvidamos 
de cambiar el nombre de una sola de es- 
tas variables en un solo lugar, nuestro 
programa tendrá errores que pueden re- 
sultar bastante difíciles de localizar. 

2. ¿Qué pasaría si nuestro nuevo pro- 
grama principal utiliza las etiquetas 1000 
a 1060 (las de la subrutina) para otra 
cosa? Nos veríamos obligados a cambiar 
las etiquetas, ya sea del programa, ya de 
la subrutina. Esto también puede traer 
complicacines y dar lugar a errores mo- 
lestos y que cuesta mucho eliminar. 

Es verdad que, en nuestro ejemplo, la 
subrutina es lo suficientemente pequeña 
como para que no sea dificil cambiar las 
etiquetas o los nombres de las variables. 


Pero estos mismos problemas los vamos 
a encontrar cuando intentemos llevar a 
otro programa una subrutina muy gran- 
de, para evitar tener que programarla 
otra vez. Y es precisamente aquí, cuando 
más útil nos puede ser la programación 
modular, donde Basic nos pone dificulta- 
des, a veces casi insolubles. 

Veamos ahora el mismo ejemplo en 
Pascal: 


Program EJEMPLO; 
TYPE serie = array [1..10] of real; 
Function MEDIA (Nzinteger; X:serie): 
real; 
(Subrutina que calcula la media 
de N números) 
VAR izintegerz total:real; 
BEGIN 
total:=0; 
fori:z=1 to N do total:=total+XCiJ; 
MEDIA: =total /N 
END; 
VAR lzinteger; datos:serie; 
BEGIN 
(Este programa lee 10 números 
y Calcula su media) 
writeln (*Escriba 10 números”); 
for i:z=1 to 10 do readln(datos[ 17); 
writeln (*La media es: ”,MEDIA(10, 
datos)) 


Observaremos las siguientes peculiari- 
dades: 


1. La instrucción TYPE define un nuevo 
tipo de datos: la serie de diez datos rea- 
les, que nos será útil para definir varia- 
bles de esta clase en el resto del progra- 
ma. 


2. El programa consta de dos partes 
claramente determinadas. La primera 
está encabezada por la palabra reserva- 
da Function (función), que da comienzo 
a la definición de un módulo. Este módu- 
lo, en lugar de tener una etiqueta numé- 
rica, tiene un nombre (MEDIA), lo que lo 
hace más mnemotécnico. 


3. A continuación del nombre del mó- 
dulo figura una lista de variables. El pri- 
mero (N) es una variable entera. El segun- 
do (X) es una serie, es decir, un conjunto 
de diez datos (pues así hemos definido el 
tipo serie). Estas variables, que van entre 
paréntesis después del nombre de la fun- 
ción, se llaman parámetros o argumentos 
de la función, y constituyen el eslabón 
entre el módulo y el programa principal. 


4. A continuación de la lista de argu- 
mentos tenemos dos puntos y la palabra 
real. Esto nos define el tipo de resultado 
del módulo o función, que dentro de ésta 
se reconocerá con el mismo nombre que 
el asignado a la función (MEDIA). 

5. A continuación, tenemos uña zona 
declarativa (como en cualquier progra- 
ma ordinario) que define las variables 
«locales» a la función. Tanto estas varia- 
bles como los argumentos o parámetros 
no entran en conflicto con otras variables 
del mismo nombre que pueda haber en 
el programa principal, por lo que se lla- 
man «variables locales» al módulo o fun- 
ción. El único nombre común a ambas zo- 
nas (programa principal y módulo) es el 
nombre del propio módulo (MEDIA, en 
nuestro caso). 

6. Luego viene la parte ejecutable 
del módulo o función, encerrada entre 
las palabras reservadas BEGIN y END, 
como es usual en PASCAL. 

7. Después de END comienza la se- 
gunda parte de nuestro programa: el 
programa principal, que también tiene 
su parte declarativa y su parte ejecuta- 
ble, como cualquier programa ordinario. 

8. Obsérvese, por último, que dentro 
del programa principal se hace uso de la 
función o módulo, utilizando simplemen- 
te su nombre (MEDIA) seguido por una lis- 
ta de valores entre paréntesis, tantos 
como los que hemos definido en el enca- 


bezamiento de la función, con tipos com- 
patibles a los indicados allí. 

Veamos cuál es el resultado de la eje- 
cución de nuestro programa principal: 


RUN 
Escriba 10 números 


Y0NOo oa - 


10 
La media es: 5.50000000000000E+000 


Se observará que es exactamente 
igual que en el caso Basic. Sin embargo, 
supongamos que deseamos trasplantar 
la función MEDIA a otro programa princi- 
pal distinto. No hay ningún problema. En 
efecto, todas las variables utilizadas por 
MEDIA son locales, por lo que el progra- 
ma principal podría utilizar los nombres i, 
total, N y X para otras cosas, sin entrar en 
conflicto con el módulo. Además, aquí 
no tenemos el problema del conflicto en 
la numeración, que en BASIC se da con 
frecuencia, pues en Pascal no se utilizan 
casi los números de etiqueta (en el ejem- 
plo anterior, ni una sola vez). 


Algunos 
comandos 


para 
procedimientos y 
variables 


UANDO aprendimos 
lo que son los proce- 
dimientos vimos algu- 
nos comandos que se 
pueden utilizar con 
ellos: 

— BORRA o BO 

Para borrar uno oO 
varios procedimientos de la memoria de 
la tortuga. 

— BOTODO 

Para borrar todos los procedimientos 
definidos. 

— IM 

Para ver la definición de uno o varios 
procedimientos. 

— IMTODO 

Para ver la definición de todos los pro- 
cedimientos. 

— |IMTS 

Para ver los nombres de todos los pro- 
cedimientos. 

Al dar la definición de estos comandos 
no habíamos visto aún lo que son las va- 
riables. Como ahora ya las conocemos, 
hay que hacer una aclaración para los 
cuatro primeros. 

El comando 


BO 
sirve para borrar de la memoria de la tor- 


tuga tanto procedimientos como varia- 
bles y su valor correspondiente. 
El comando 


BOTODO 


borra todos los procedimientos que se 
hayan definido y todas las variables utili- 
zadas con HAZ junto con su valor asocia- 
do. 

El comando 


permite ver la definición de procedi- 
miento y el contenido (valor) de las va- 
riables. 

El comando 


IMTODO 


muestra la definición de todos los proce- 
dimientos y el contenido de todas las va- 
riables. 

Por ejemplo, supongamos que hemos 
escrito lo siguiente: 


? PARA CIRCULO 

> REPITE 36 (AV 2 GD 10) 

> FIN 

2 HAZ “DEPORTE “FUTBOL 

? PARA ESTRELLA 

> REPITE 10 (AV 35 RE 35 GD 36) 
- OT 

> FIN 

2 HAZ "EDAD 7 

2 HAZ “LIBRO “QUIJOTE 


Vamos a ver lo que haría la tortuga al 
utilizar algunos de los comandos anterio- 
res: 


? IM *“ CIRCULO 
PARA CIRCULO 


| REPITE 36 [AV 2 GD 10 ] 
FIN 


PULSAMOS > 1 
Dr rar 


2 IM “CIRCULO M 


Como vemos, el nombre de la variable se ha de poner precedido por dos puntos 


E). 


2 IM [ ESTRELLA : DEPORTE ] 
PARA ESTRELLA 


| REPITE 10 [ AV 35”RE 35 GD 36] 
OT 


PULSAMOS FIN 


AR > HAZ “DEPORTE '' FUTBOL 
21 


2 IM [ESTRELLA : DEPORTE] E 


Primero se nos muestran las definiciones de procedimientos y luego los valores de 
las variables. 


? IMTODO EM 2 |IMTODO 
— PARA CIRCULO 
| REPITE 36 [ AV 2 GD 10 ] 
FIN 
PULSAMOS PARA ESTRELLA 
A REPITE 10 [ AV 35 RE 35 GD 36 1 


OT 

FIN 

HAZ “DEPORTE “FUTBOL 
HAZ “EDAD 7 

HAZ “LIBRO “QUIJOTE 


(abreviatura de COPIA DEFinición), que 
sirve para copiar la definición del proce- 
dimiento nombre4 en otro procedimien- 


COPIADEF “nombre 4 “nombre2 to llamado nombre2. 


Por último, un comando que sólo se 
puede usar con procedimientos es 


a LOGO 


Puede ser muy útil cuando queremos 
definir dos procedimientos que son muy 
parecidos. En lugar de escribir la defini- 
ción completa de los dos, podemos es- 
cribir la de uno y ellos y copiarla para el 
segundo. Luego, podemos utilizar el edi- 
tor para modificar esta segunda defini- 
cion. 


) 
¡; Dos funciones nuevas 


Ya sabemos que las funciones son unas 
órdenes que provocan que la tortuga nos 
dé una respuesta y que con esta respues- 
ta tenemos que hacer algo. Por ejemplo, 
escribirla. 


? BORRA [ CIRCULO : EDAD] WM 


El resultado de estas funciones se pue- 
de utilizar, además, con otros comandos. 
Si escribimos: 


? GUARDA “PROCS LPROCS 
? GUARDA “VARS LVARS 


la tortuga copia en el fichero PROCS las 
definiciones de los dos procedimientos y 
en el fichero VARS los nombres y el valor 
de las tres variables. 

O si ponemos: 


? BO LPROCS 
? BO LVARS 


con el primer comando BO borramos de 
la memoria de la tortuga todos los proce- 
dimientos y con el segundo borramos to- 
das las variables y sus valores correspon- 
dientes. 


' Cómo usar la impresora 


Hasta ahora, cada vez que hemos pe- 
dido a la tortuga alguna informacion, 


La función 
LPROCS 


(abreviatura de Lista PROCedimientoS) 
devuelve una lista que contiene todos los 
nombres de procedimientos que haya- 
mos definido, mientras que la función 


LVARS 


(abreviatura de Lista VARiableS) devuel- 
ve una lista de todos los nombres de va- 
riables que hemos utilizado. 


Suponiendo que tenemos definidos los 
procedimientos ROMBO y AVION y que 
hemos asignado un valor a las variables 
COLOR, DIA y HORA, tendríamos que: 


? BORRA [ CIRCULO : EDAD] 


o 2m 


pu 


PULSAMOS 
O 


ésta nos ha salido por la pantalla. Si lo 
que queremos es obtener lo mismo pero 
que nos salga por la impresora, primero 
tendremos que activarla, es decir, indi- 
carle a la tortuga que en este momento 
queremos que utilice la impresora para 
comunicarse con nosotros. Para esto se 
usa el comando 


IMPRESORA 4 


A partir de este momento, todo lo que es- 
cribimos o lo que aparezca en la panta- 
lla se imprimirá por la impresora. 

Cuando ya no queramos que nos sa- 
que las cosas por la impresora pondre- 
mos 


IMPRESORA O 
para indicarle a la tortuga que desacti- 
ve la impresora. 
Es decir, en general, el comando de 
control de la impresora es 


IMPRESORA n 


donde nes un O si queremos desactivar- 
la o un ] si queremos activarla. 

Así, por ejemplo, si queremos sacar por 
impresora la definición de todos los pro- 
cedimientos que tenemos y luego seguir 
trabajando normalmente, escribiremos: 


? IMPRESORA 1 
? IM LPROCS 


Si ahora queremos imprimir solamente 
los nombres de los procedimientos y, 
además, todos los nombres de las varia- 
bles y sus valores correspondientes, ha- 
brá que poner: 


? IMPRESORA 1 
2 IMTS 

? IM LVARS 

? IMPRESORA O 


' Números 


Todos sabemos que una de las carac- 
terísticas que más llaman la atención de 
un ordenador es que puede realizar mu- 
chas y diferentes operaciones de una for- 
ma rápida y sin equivocarse. 

Nuestra amiga la tortuga no va a ser 
menos y, como ya hemos visto en mu- 
chas ocasiones, es capaz de manejar nú- 
meros y de realizar distintas operaciones 
con ellos. Por ejemplo, utilizamos núme- 
ros para decirle a la tortuga el número de 
pasos que queremos que avance o el nú- 
mero de grados que ha de girar. También 


? IMTODO EM 


los usamos para meter un valor en el ca- 
jón correspondiente a una variable o 
para indicarle a la tortuga el color con 
que queremos que pinte su lápiz. 

Vemos, pues, que, sin darnos cuenta, 
hemos estado utilizando números conti- 
nuamente y que la tortuga no ha protes- 
tado en ningún momento. 


' Tipos de números 


Principalmente, nuestra tortuga entien- 
de tres tipos de números: 

— Números positivos 

Son los que más hemos utilizado hasta 
ahora. No llevan ningún carácter delan- 
te. Por ejemplo: 5, 123. 

— Números negativos 

Llevan delante un signo menos (-). Por 
ejemplo: -44, -12. 

— Números decimales 

Son los que tienen parte decimal. Esta 
parte se separa de la parte entera por un 
punto (.). A su vez, pueden ser positivos y 
negativos. Por ejemplo: 0.7, 25.175, 
-3.94. 

Como es lógico, si nosotros escribimos 
en pantalla un número sólo, la tortuga 
nos dirá que no sabe qué hacer con él. 
Es decir, tenemos que usar los números 
para algo. Puede ser para acompañar a 
diferentes comandos, como AV, RE, GD, 
Gl, REPITE, PONCL, PONFONDO,, ..., simple- 
mente para escribirlos por medio del co- 
mando ES, 


? IMTODO 
PARA ESTRELLA 


=) | REPITE 10 [AV 35 RE 35 GD 36] 


OT 


PULSAMOS FIN 


A A 


o para realizar operaciones con ellos. 


HAZ “DEPORTE * FUTBOL 


HAZ “LIBRO *” QUIJOTE 
>m 


PASCAL 


ACE tiempo escribi- 
mos un programa 
para jugar al Master 
Mind que, tras gene- 
rar una combinación 
aleatoria, nos peimi- 
tía intentar descubrir- 
la a través de la infor- 
mación que, en forma de número de 
muertos y heridos, nos devolvía como 
respuesta a los sucesivos intentos. Men- 
cionamos entonces la posibilidad de es- 
cribir un programa por medio del cual 
fuera el ordenador el que intentase des- 
cubrir una combinación secreta ideada 
por nosotros y dejamos su realización 
para otro momento; pues bien, ese mo- 
mento ha llegado. 


LM Es juego del Master Mind (2) 


Cuando describimos la versión de Mas- 
ter Mind que íbamos a utilizar, pusimos un 
ejemplo de partida mostrando un típico 
proceso deductivo de este juego; resul- 
ta evidente que la cantidad de posibles 
situaciones distintas es enorme, por lo 
que un programa que simulase nuestra 
forma de razonar sería terriblemente 
complejo. El mismo problema, aunque a 
una escala mucho mayor, se presenta a 
la hora de escribir un programa para ju- 
gar al ajedrez. 


Por fortuna, tanto en este último caso 
como en el que nos ocupa, podemos es- 
cribir programas relativamente sencillos 


y aprovechar la gran velocidad de los or- 
denadores para suplir la falta de «inteli- 
gencia» con la capacidad de analizar una 
gran cantidad de jugadas en muy poco 
tiempo; en otras palabras, es como resol- 
ver un problema de matemáticas por «la 
cuenta de la vieja», pero muy deprisa. 
Los resultados que se pueden obtener así 
es posible que los haya observado el lec- 
tor con alguno de los juegos de ajedrez 
existentes actualmente en el mercado y, 
cuando ponga a prueba el programa 
que vamos a escribir, verá con el Master 
Mind cómo el ordenador puede parecer 
realmente inteligente. 

El método, muy sencillo, consiste en lo 
siguiente: sólo se presenta una combina- 
ción al oponente del ordenador si es fac- 
tible como solución de la partida, es de- 
cir, si comparada con todos los anterio- 
res intentos, da como resultado en cada 
caso exactamente el número de muertos 
y heridos que se le dieron al ordenador 
como respuesta. A medida que avanza 
la partida, el número de condiciones que 
es necesario cumplir para ser una com- 
binación factible va aumentando y, por 
tanto, cada vez es menor el abanico de 
posibles combinaciones donde escoger, 
hasta llegar a un momento en que no hay 
más que una, que es precisamente la so- 
lución de la partida. El resultado, como 
observará el lector, es difícilmente dife- 
renciable del obtenido con un proceso 
auténticamente deductivo y, en prome- 
dio, proporciona unos resultados próxi- 
mos a los mejores obtenibles por un ser 
humano. 


A la hora de buscar una combinación 
podemos seguir un método aleatorio, o 
bien un método sistemático; este último 
tiene la ventaja sobre el primero de que 
obtiene combinaciones factibles dentro 
de un plazo límite aunque las condicio- 
nes a cumplir sean muy restrictivas, te- 
niendo el inconveniente, sin embargo, 
de que cuando una partida está en sus 
comienzos, al no haber prácticamente 
condiciones, las combinaciones que se 
presentan son casi siempre más o menos 
las mismas, perdiéndose, además, el fac- 
tor suerte que siempre puede ser benefi- 
cioso al principio. Por otra parte, si, tras 
haberse explorado todas las combina- 
ciones (de lo cual sólo se puede llegar a 
estar seguro con el método sistemático), 
no se ha obtenido la solución, el progra- 
ma puede deducir que ha habido algu- 
na respuesta incorrecta por parte de su 
oponente. 

Lo más adecuado es, por tanto, empe- 
zar utilizando un método aleatorio de ge- 
neración de combinaciones, que se irán 
contrastando con todos los intentos ante- 
riores hasta encontrar alguna factible. 
Solamente cuando se haya probado in- 
fructuosamente un determinado número 
de combinaciones (en nuestro caso qui.- 
nientos, aunque esto depende del gusto 
de cada uno) se pasará a la generacion 
sistemática; la forma natural de imple- 
mentar ésta es por medio de cuatro (en 


program MasterMind; 
label 10; 


type 
Combi_t = array [1..4] of integer; 
Ficha_t = record 
Clave 
Muertos, 
Heridos : integer 
end; 


3 Combi_t; 


var 
Aleatorio : real; 


Pruebal, 
Prueba2, 
Prueba, 
Prueba4 
Prueba, 
Clavel, 
Clave2 


integer; 


Combi _t; 


Archivo 


Ultima, 

Limite, 

FallosAzar: integer; 
boolean; 
char; 


array [1..20] of Ficha_t; 


realidad, tantos como elementos tenga 
cada combinación) bucles FOR anida- 
dos unos dentro de otros que, con vistas 
a camuflar la sistematicidad de la explo- 
ración, no estarán puestos por orden ni 
tendrán el mismo sentido de variación de 
sus variables. Por supuesto, tras encontrar 
una combinación factible por este méto- 
do, la exploración se reanuda en el pun- 
to en que se encontró, no se vuelve a em- 
pezar por el principio. 


Cada intento, junto con las respuestas 
asociadas, se guardará en una ficha per- 
teneciente a una tabla de éstas que de- 
nominaremos Archivo. A la hora de ana- 
lizar la factibilidad de una combinación 
se empezará a comparar por el final del 
Archivo, pues, normalmente, los últimos 
intentos habrán obtenido respuestas más 
restrictivas (es decir, con números más 
significativos de muertos y heridos) y así 
se empezará a comparar por el final de 
sin interés; es una cuestión de ahorro de 
tiempo exclusivamente. 


En el programa se emplean dos instruc- 
ciones GOTO; como verá el lector, su em- 
pleo simplifica apreciablemente el pro- 
grama. 


Como ejercicio, podría modificar el 
lector el programa para que permita el 
juego en las dos direcciones; las funcio- 
nes Muertos.1.A.2 y Heridos.1.A.2 serían 
aprovechables en ambos casos. 
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SY) 
procedure Arrancaázar; 
A x) 
(* Pide el primer número de la serie aleatoria *) 
AS SA o a e a e a x) 
var Bien: boolean; 
begin 
writeln (*Teclee un número entre O y 1, ambos exclusive.”); 
repeat 


readln (Aleatorio); 
Bien:= (0.0 < Aleatorio) and (Aleatorio < 1.0); 
if not Bien then writeln (*No vale. Repita.”) 
until Bien 
end; 


function Azar (Inf,Sup: integer): integer; 


AAA AA A x) 
(x Proporciona un número entero aleatorio x) 
(Xx entre Inf y Sup, ambos inclusive x) 
AAA AAA x) 
var A: real; 
begin 
Aleatorio:= frac (Aleatorio * 997); (Xx ¡OJO! Xx) 
Azar:= Inf + trunc (Aleatorio * (Sup -— Inf + 1)) 
end; 
function MUERTOS_1_A_2: integer; 
MAA AAA x) 
(xXx Compara Clavel con Clave2 y devuelve el número de Muertos. X) 
MASA o o x) 
var I,M: integer; 
begin 
:= 0; 


for Iz= 1 to 4 do 
if Clavel [1] = Clave2 [1] then 

begin 
Clavel [Il:= -1; 
Clave2 [11:= -2; 
M:i= Ma 1 
end; 

Muertos_1_a_2 := M 

end; 


function HERIDOS_1_A_2: integer; 


AAÁA>5<AáA A e e e e e x) 
(k Compara Clavel con Clave2 y devuelve el número de Heridos. *X) 
(Xx DEBE utilizarse después de Muertos_1_a_2. x) 
ARAS o e a A e x) 
var 1,J,H: integer; 
begin 
H:= 0; 


for lI:= 1 to 4 do 
for J:= 1 to 4 do 
if Clavel [1] = Clave2 [(J1 then 
begin 
Clavel [Il:= -1; 
Clave2 [Jl:= -2; 


Hi= H + 1 
end; 
Heridos_1_a_2 := H 


end; 


function ACEPTABLE: boolean; 
var Acept: boolean; Indice: integer; 


ASA o e a x) 
(k Compara Prueba con todas las combinaciones guardadas en Y) 
(k Archivo para ver si es una combinación factible. *x) 
E >A>——— a a e e e e e A mm x) 
begin 
Acept := true; (* Suponemos, en principio, que Prueba es válida *X) 
Indice := Ultima; (k Empieza a mirar por el final de Archivo x) 
AAA A A e os x) 


(k Explora hasta el comienzo de archivo o X) 
(% hasta encontrar alguna incongruencia:  X) 


while (Indice > 0) and Acept do 
with Archivo [Indicel do 
begin 
(X Saca copias de las combinaciones a comparar: X) 


Clavel := Clave; 
Clave2 := Prueba; 


(X Mira a ver si el resultado de su comparación está de *) 
(* acuerdo con la respuesta que se dio en su momento: x) 


Acept := (Muertos_1_a_2 = Muertos) and (Heridos_1_a_2 = Heridos); 


(X Pasa a otra combinación de Archivo: *X) 
Indice := Indice - 1 
end; 


(Xx Al llegarse aquí, si no se ha encontrado  X*) 
(X ningún problema, Acept sigue siendo true: %*) 
AAA A -x) 
Aceptable := Acept 


end; 


(fzs==z==czmzczmccocanazzmnczcazzonoanoanccsososonzcmosncoccosnznznnsoczznaszscrnzmomzmmzemz )] ) 


procedure MOSTRAR; 
var 1,M,H: integer; Vale: boolean; 


AAA << __ e m_—__—_--_ A Ñyz44q4gq4 qq x) 
(* Enseña Frueba y pide el número de Muertos y Heridos, Y) 
(XK guardando Prueba y las respuestas en Archivo. x) 
(* Además, hace OK igual a TRUE si Prueba es la solución %X) 
AAA AAA o x) 
begin 


for 1 := 1 to 4 do write (Prueba [1]); 


(X* Pide Muertos y heridos: *) 


repeat 
writeln; 
write (” Muertos: ”?); read (M); 
wite ("7  Heridos: ?); read (H); 


(x Comprueba coherencia de las respuestas: %*) 
case M of 
0,1,2: Vale := ( 
3,4 : Vale := (H = 0) 
else Vale := f 
end; 
if not Vale then write (” i¡Imposible!'”) 


until Vale; 


OK := (M = 4); 
if not OK then 
begin 
writeln (” Pensando...?”); 
Ultima := Ultima + 1; (X ya hay un intento más %) 
Archivo [Ultimal.Clave ¿:= Prueba; 
Archivo [Ultimal.Muertos := M; 
Archivo [(Ultimal.Heridos := H 
end 
end; 


begin 
ClrScr; 
ArrancaAzar; 
wite (*Números del 1 al...”); 
readln (Limite); 
MR AÓAáA<A áE]ÉÁÉH A A A A A repetir partidas: %) 
repeat 
ClrScr3 
wite ("Piense una combinación de cuatro cifras entre 1 y ”,Limite); 
witeln (? y pulse Intro después.”); 
readln; 
Ultima:= 0; 
FallosAzar:= 0; 


AqÓAáAáKáAAA A a repetir búsqueda aleatoria: x) 
repeat 

Prueba [11 :=* Azar (1, Limite); 

Prueba [21 := Azar (1, Limite); 

Prueba [3] := Azar (1, Limite); 

Prueba [4] := Azar (1, Limite); 


if Aceptable then 
begin 
Mostrar; 
if OK then GOTO 10; 
FallosAzar:= O 
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end 
else 
FallosAzar := FallosáAzar + 1; 


until FallosAzar = 500; 


oo o=o====-=-=-- iniciar búsqueda sistemática: *) 
for Prueba4 := 1 to Limite do 
for Prueba2 := Limite downto 1 do 
for Prueba3 := 1 to Limite do 
for Pruebal := Limite downto 1 do 
begin 
Prueba [11 := Pruebal; 
Prueba (21 := Prueba2; 
Prueba (31 := Prueba3; 
Prueba [4] := Prueba4; 
if Aceptable then 
begin 
Mostrar; 
if OK then GOTO 10 
end 
end; 


(Y Si se llega aquí, es porque se han probado  X*) 
(X todas las combinaciones sin éxito: x) 


writelnj writeln (”*REVISE SUS RESPUESTAS”); 
10: writeln; writeln; write ("Otra partida (S/N) ? ”); readln (Letra) 
until (Letra = *"N”) or (Letra = *n”) 


end. 


DA es un lenguaje 
que fue diseñado de 
encargo, basándose 
en las especificacio- 
nes Steelman del De- 
partamento de De- 
fensa de los Estados 
Unidos. Estas especifi- 
caciones exigían un lenguaje ante todo 
potente, diseñado para su implementa- 
ción en grandes sistemas de cálculo, y 
que fuese además utilizable en proble- 
mas muy diferentes, es decir, un lengua- 
je de programación de uso general. 

Debido a esto, ADA ofrece una serie de 
facilidades, como las de lenguajes clási- 
cos de programación como Pascal, así 
como otras frecuentemente utilizadas en 
lenguajes especializados. Por ello es un 
lenguaje de tipo algorítmico, que ade- 
más de poseer las estructuras típicas de 
control, como la definición de tipos, sub- 
programas, etc., dispone de las caracte- 
rísticas de los lenguajes de vanguardia, 
como modularidad; donde tipos, datos y 
subprogramas pueden ser empaqueta- 
dos. 

Este lenguaje trata la modularidad tain- 
bién en el sentido físico, facilitando la 
compilación por partes, incluso en dife- 
rentes máquinas. 

Además de estas características, el 
lenguaje permite la programación para 
atender a tareas en tiempo real, facili- 
tando de base, ejecución en paralelo y 
el manejo de excepciones (interrupcio- 
nes y señales asíncronas de todo tipo). 


OTROS LENGUAJES 


EL LENGUAJE DE PROGRAMACION ADA 


Las operaciones de entrada/salida es- 
tán definidas a ambos niveles: aplica- 
ción y máquina. 

Cuando el lenguaje ADA fue diseñado, 
se hizo basándose en tres conceptos 
principalmente: 


— Reconocimiento de la importancia 
del mantenimiento en el rendimiento del 
software. 


— Facilitar la tarea de programación 
basándose en las características tipo de 
los programadores humanos (reconoci- 
miento de errores, etc.). 


— Conseguir, ante todo, un lenguaje 
eficiente. 


Debido a esto, el resultado es un len- 
guaje cuyas posibilidades y profundidad 
sintáctica es enorme, para hacer posible 
toda esta potencia; al mismo tiempo, sus 
reglas son muy estrictas para impedir al 
maximo los frecuentes errores de tipo, en 
la asignación de datos entre bloques di- 
ferentes, muy habituales en los lenguajes 
de programación menos exigentes. 

Como consecuencia, al ser un lengua- 
je tan extenso, la mayoría de los compi- 
ladores existentes sólo tratan un peque- 
ño subconjunto de instrucciones del len- 
guaje. Sólo con ordenadores de gran po- 
tencia es posible implementar este len- 
guaje, que es, sin duda, de los más po- 
tentes en la actualidad. 

Veamos brevemente cuál es la estruc- 
tura de un programa ADA típico. 

El siguiente programa ADA es una uni- 
dad compilable, un procedimiento que 
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imprime las raíces reales de una ecua- 


ción de segundo grado: 


with TEXT_10,REAL_OPERATIONS; use REAL_OPERATIONS ; 


procedure QUADRATIC_OPERATION ¡s 


A,B,C,D:REAL; 


use REAL_I0, -- define GET y PUT para REAL 
TEXT_I0, -- define PUT para STRING y NEW_LINE 
REAL_FUNCTIONS, -- define SQRT 
begin 
GET(A); 
GET(B); 


GET(C); 


] D:=B xx 2 - 4,0 * A * C; 
if D< 0.0 then 
PUT (" Raices ¡imaginarias "); 
else 
PUT (" Raices reales: Xl= e 
PUT ((- B - SORT (D)>>/C(2.0* 4) 3 
PUT (" Xx2= ">; 
PUT ((= 8 + SORT CDI C2.04 4d 
endif; 
NEW_LINE; 
end CUADRATIC_EQUATI ON; 
Como puede observarse, la sintaxis tie- 
ne un gran parecido con la del lenguaje 


MODULA-2, que es una evolución modu- 
lar del Pascal. 


L y = 


